From bcb6177bcdd58160ef84e3563189f01c0cf3a1ea Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 5 Feb 2012 00:56:39 +0000
Subject: 	* interp/nruncomp.boot (getLocalIndex): Fast track niladic 
 constructors. 	* algebra/syntax.spad.pamphlet: Miscellaneous cleanup.

---
 src/interp/nruncomp.boot | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index 58a7531f..cd90fe1b 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2011, Gabriel Dos Reis.
+-- Copyright (C) 2007-2012, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -282,6 +282,7 @@ NRTaddInner(db,x) ==
     builtinConstructor? x.op or x.op is "[||]" =>
       for y in x.args repeat
         NRTinnerGetLocalIndex(db,y)
+    niladicConstructor? x.op => nil
     cosig := getDualSignature x.op =>
       for y in x.args for t in cosig.source | y isnt '$ and t repeat
         NRTinnerGetLocalIndex(db,y)
-- 
cgit v1.2.3