scip/rpnc
1
0
Fork 0
mirror of https://codeberg.org/scip/rpnc.git synced 2025-12-17 04:21:01 +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

17
rpnc
View File

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