scip/rpnc
1
0
Fork 0
mirror of https://codeberg.org/scip/rpnc.git synced 2025-12-17 12:31:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

added check if custom func already exists

Browse Source
This commit is contained in:
Thomas von Dein
2020-04-13 18:15:38 +02:00
parent 0cba681c99
commit 763a9fd9f4
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
rpnc
View File

@@ -556,6 +556,8 @@ sub defun {
return; return;
} }
if (! exists $custom{$name}) {
# no need to check twice and overwriting of custom function must be legal
if (grep {$name eq $_} keys %commands) { if (grep {$name eq $_} keys %commands) {
print "reserved function name (command)!\n"; print "reserved function name (command)!\n";
return; return;
@@ -565,6 +567,7 @@ sub defun {
print "reserved function name (function)!\n"; print "reserved function name (function)!\n";
return; return;
} }
}
$custom{$name} = "@tokens"; $custom{$name} = "@tokens";