diff options
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 79735fab..bee89e0c 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -259,7 +259,7 @@ applyMapping([op,:argl],m,e,ml) == -- form:= -- not MEMQ(op,$formalArgList) and atom op => -- [op',:argl',"$"] where --- op':= INTERN STRCONC(STRINGIMAGE $prefix,";",STRINGIMAGE op) +-- op':= INTERN strconc(STRINGIMAGE $prefix,";",STRINGIMAGE op) -- ["%Call",["applyFun",op],:argl'] -- pairlis:= [[v,:a] for a in argl' for v in $FormalMapVariableList] -- convert([form,SUBLIS(pairlis,first ml),e],m) |