diff options
Diffstat (limited to 'src/interp/word.boot')
-rw-r--r-- | src/interp/word.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/word.boot b/src/interp/word.boot index f37d34be..b39c79c9 100644 --- a/src/interp/word.boot +++ b/src/interp/word.boot @@ -138,7 +138,7 @@ add2WordFunctionTable fn == -- Guess Function Name --======================================================================= guess word == - u := bootFind word => INTERN u + u := bootFind word => makeSymbol u nil bootFind word == @@ -361,7 +361,7 @@ forge(word,w,W,entry,e,E,n) == patternTran pattern == not hasWildCard? pattern and LITER pattern.0 and UPCASE copy pattern = pattern => - name:= abbreviation? INTERN pattern + name:= abbreviation? makeSymbol pattern or browseError [:bright pattern, '"is not a constructor abbreviation"] DOWNCASE PNAME name |