aboutsummaryrefslogtreecommitdiff
path: root/src/interp/newfort.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/newfort.boot')
-rw-r--r--src/interp/newfort.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot
index e85042a9..e5c92359 100644
--- a/src/interp/newfort.boot
+++ b/src/interp/newfort.boot
@@ -741,7 +741,7 @@ currentSP () ==
$currentSubprogram or "MAIN"
updateSymbolTable(name,type) ==
- fun := ['$elt,'SYMS,'declare_!]
+ fun := ['$elt,'SYMS,'declare!]
coercion := ['_:_:,STRING type,'FST]
$insideCompileBodyIfTrue: local := false
interpret([fun,["QUOTE",name],coercion])