diff options
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 75ac00e4..41488141 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2009, Gabriel Dos Reis. +-- Copyright (C) 2007-2010, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -388,7 +388,7 @@ mkTypeForm x == ['LIST,MKQ 'Record,:[mkTypeForm y for y in argl]] x is ['Join,:argl] => ['LIST,MKQ 'Join,:[mkTypeForm y for y in argl]] - x is ['call,:argl] => ['MKQ, optCall x] + x is ["call",:argl] => ['MKQ, optCall x] --The previous line added JHD/BMT 20/3/84 --Necessary for proper compilation of DPOLY SPAD x is [op] => MKQ x @@ -625,7 +625,7 @@ DescendCode(code,flag,viewAssoc,EnvToPass) == code is ['LIST,:.] => nil code is ['devaluate,:.] => nil code is ['MDEF,:.] => nil - code is ['call,:.] => code + code is ["call",:.] => code code is ["setShellEntry",:.] => code -- can be generated by doItIf code is ['SETELT,:.] => systemErrorHere ["DescendCode",code] code is ['QSETREFV,:.] => systemErrorHere ["DescendCode",code] |