diff options
Diffstat (limited to 'src/interp/fortcall.boot')
| -rw-r--r-- | src/interp/fortcall.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 2ffe80a1..a5907f06 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -283,14 +283,14 @@ spadTypeTTT u == mkQuote l == [addQuote(u)for u in l] where addQuote u == - u isnt [.,:.] => ['QUOTE,u] + u isnt [.,:.] => quote u ["construct",:[addQuote(v) for v in u]] makeLispList(l) == outputList := [] for u in l repeat outputList := [:outputList, _ - if u isnt [.,:.] then ['QUOTE,u] else [["$elt","Lisp","construct"],_ + if u isnt [.,:.] then quote u else [["$elt","Lisp","construct"],_ :makeLispList(u)]] outputList |