diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-01 00:22:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-01 00:22:44 +0000 |
| commit | 5b0462a5f0b499c2c3177e36e52b476875141969 (patch) | |
| tree | a698fd6d161395245e4b1bdc349724f503ec8c44 /src/algebra/variable.spad.pamphlet | |
| parent | a1eeda981dd4d753a805ff4a13a4ef26d167a7fb (diff) | |
| download | open-axiom-5b0462a5f0b499c2c3177e36e52b476875141969.tar.gz | |
* interp/g-util.boot: Add more opcodes.
* algebra/syntax.spad.pamphlet: Clean up.
* algebra/variable.spad.pamphlet: Likewise.
* algebra/ystream.spad.pamphlet: Likewise.
Diffstat (limited to 'src/algebra/variable.spad.pamphlet')
| -rw-r--r-- | src/algebra/variable.spad.pamphlet | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/algebra/variable.spad.pamphlet b/src/algebra/variable.spad.pamphlet index edf83230..1ae7899d 100644 --- a/src/algebra/variable.spad.pamphlet +++ b/src/algebra/variable.spad.pamphlet @@ -101,16 +101,18 @@ AnonymousFunction():SetCategory with ++ body(f) returns the body of the unnamed function `f'. == add import Syntax + import %lsecond: % -> Syntax from Foreign Builtin + import %lthird: % -> Syntax from Foreign Builtin coerce(x:%):OutputForm == x pretend OutputForm parameters f == - ps := CADR(f)$Lisp : Syntax + ps := %lsecond f ps case Identifier => [ps]$List(Identifier) getOperands(ps) pretend List(Identifier) body f == - CADDR(f)$Lisp : Syntax + %lthird f @ |