diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-07 15:17:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-07 15:17:39 +0000 |
| commit | 30e90e4c85eb1fb101ed06b22802d36dbc0df2d2 (patch) | |
| tree | e5d4d8871981196f85a1038491a3a62372630a96 /src/interp/postpar.boot | |
| parent | 64dee33447f6db28cfe4d6abe92e51bf4e70a2c6 (diff) | |
| download | open-axiom-30e90e4c85eb1fb101ed06b22802d36dbc0df2d2.tar.gz | |
* interp/types.boot (%Integer): Alias for Lisp INTEGER class.
* interp/sys-utility.boot (getVMType): Integer is represented by
%Integer.
* interp/postpar.boot (postSignature): Don't ignore constants.
Diffstat (limited to 'src/interp/postpar.boot')
| -rw-r--r-- | src/interp/postpar.boot | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot index afb39ff7..15b43600 100644 --- a/src/interp/postpar.boot +++ b/src/interp/postpar.boot @@ -505,6 +505,7 @@ postSignature t == sig1:= postType sig op:= postAtom (STRINGP op => INTERN op; op) ["SIGNATURE",op,:removeSuperfluousMapping killColons sig1] + ["SIGNATURE",postAtom op,:postType ["->","constant",sig]] killColons: %ParseTree -> %ParseForm killColons x == |