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/newfort.boot | |
| parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
| download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz | |
Cleanup.
Diffstat (limited to 'src/interp/newfort.boot')
| -rw-r--r-- | src/interp/newfort.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index 7edba7aa..53cba5de 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -437,7 +437,7 @@ exp2FortSpecial(op,args,nargs) == mkFortFn("EQ",[first args, third args],2) --the next line is NEVER used by FORTRAN code but is needed when -- called to get a linearized form for the browser - op = "QUOTE" => + op = 'QUOTE => (arg := first args) isnt [.,:.] => STRINGIMAGE arg tailPart := strconc/[strconc('",",x) for x in rest arg] strconc('"[",first arg,tailPart,'"]") @@ -744,7 +744,7 @@ updateSymbolTable(name,type) == fun := ['$elt,'SYMS,'declare!] coercion := ['_:_:,STRING type,'FST] $insideCompileBodyIfTrue: local := false - interpret([fun,["QUOTE",name],coercion]) + interpret([fun,quote name,coercion]) addCommas l == not l => nil |