diff options
Diffstat (limited to 'src/interp/as.boot')
-rw-r--r-- | src/interp/as.boot | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/interp/as.boot b/src/interp/as.boot index f3522d20..f691cfec 100644 --- a/src/interp/as.boot +++ b/src/interp/as.boot @@ -142,7 +142,8 @@ asMakeAlist con == if atom(form) then form:=[form] kind is 'function => asMakeAlistForFunction con abb := asyAbbreviation(con,#(KDR sig)) - if null KDR form then PUT(opOf form,'NILADIC,'T) + if null KDR form then + property(opOf form,'NILADIC) := 'T modemap := asySubstMapping LASSOC(con,$mmAlist) $constructorCategory :local := modemap.mmTarget parents := mySort HGET($parentsHash,con) @@ -349,7 +350,7 @@ asyMakeOperationAlist(con,proplist, key) == u key is 'domain => kind := 'domain - u := NIL + u := nil return nil ht := MAKE_-HASH_-TABLE() ancestorAlist := nil @@ -728,10 +729,10 @@ asyGetAbbrevFromComments con == --above "first" assumes only one entry x := asyExtractAbbreviation comments x => intern x - NIL + nil asyExtractAbbreviation str == - not (k:= STRPOS('"Abbrev: ",str,0,nil)) => NIL + not (k:= STRPOS('"Abbrev: ",str,0,nil)) => nil str := subString(str, k+8) k := STRPOS($stringNewline, str,0,nil) k => subString(str, 0, k) |