From 30e90e4c85eb1fb101ed06b22802d36dbc0df2d2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 7 May 2008 15:17:39 +0000
Subject: 	* 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.

---
 src/interp/postpar.boot | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/interp/postpar.boot')

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 ==
-- 
cgit v1.2.3