diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
| commit | 5a03f408233bf4e17759ace9a83dcf6012f72dcc (patch) | |
| tree | 5af46b5ebca646527bb7ec115cfaaf68d5e00d23 /src/interp/i-special.boot | |
| parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
| download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz | |
Cleanup.
Diffstat (limited to 'src/interp/i-special.boot')
| -rw-r--r-- | src/interp/i-special.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-special.boot b/src/interp/i-special.boot index b3fd5f40..ee5291ed 100644 --- a/src/interp/i-special.boot +++ b/src/interp/i-special.boot @@ -1744,7 +1744,7 @@ up%LET t == cons? lhs => var:= getUnname first lhs var = "construct" => upLETWithPatternOnLhs t - var = "QUOTE" => throwKeyedMsg("S2IS0027",['"A quoted form"]) + var = 'QUOTE => throwKeyedMsg("S2IS0027",['"A quoted form"]) upLETWithFormOnLhs(op,lhs,rhs) var:= getUnname lhs var = $immediateDataSymbol => @@ -1846,7 +1846,7 @@ upLETWithPatternOnLhs(t := [op,pattern,a]) == -- have to change code to return value of a failCode := ['spadThrowBrightly,['concat, - '" Pattern",['QUOTE,bright form2String pattern], + '" Pattern",quote bright form2String pattern, '"is not matched in assignment to right-hand side."]] if $genValue then @@ -2062,7 +2062,7 @@ upQUOTE t == evalQUOTE(op,[expr],[m]) == triple:= $genValue => objNewWrap(expr,m) - objNew(['QUOTE,expr],m) + objNew(quote expr,m) putValue(op,triple) --% Quasiquotation |