diff options
Diffstat (limited to 'src/interp/as.boot')
| -rw-r--r-- | src/interp/as.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/as.boot b/src/interp/as.boot index 06c61e6c..3ba00e5e 100644 --- a/src/interp/as.boot +++ b/src/interp/as.boot @@ -56,7 +56,7 @@ asAll lines == 'done as name == - astran STRCONC(STRINGIMAGE name,'".asy") + astran strconc(STRINGIMAGE name,'".asy") 'done astran asyFile == @@ -66,7 +66,7 @@ astran asyFile == $constantHash := MAKE_-HASH_-TABLE() $niladics : local := nil $asyFile: local := asyFile - $asFilename: local := STRCONC(PATHNAME_-NAME asyFile,'".as") + $asFilename: local := strconc(PATHNAME_-NAME asyFile,'".as") asytran asyFile conlist := [x for x in HKEYS $conHash | HGET($conHash,x) isnt [.,.,"function",:.]] $mmAlist : local := @@ -154,7 +154,7 @@ asMakeAlist con == attributeAlist := REMDUP [:second alists,:catAttrs] documentation := SUBLISLIS($FormalMapVariableList,KDR form,LASSOC(con,$docAlist)) - filestring := STRCONC(PATHNAME_-NAME STRINGIMAGE filename,'".as") + filestring := strconc(PATHNAME_-NAME STRINGIMAGE filename,'".as") constantPart := HGET($constantHash,con) and [['constant,:true]] niladicPart := MEMQ(con,$niladics) and [['NILADIC,:true]] falist := TAKE(#KDR form,$FormalMapVariableList) |