From 90e75eb56b50a8fb87dc241f5bba0c78aec8c973 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 1 Nov 2009 02:17:47 +0000
Subject: Clean up

---
 src/interp/nrunopt.boot | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot
index a4aea6b5..568929ee 100644
--- a/src/interp/nrunopt.boot
+++ b/src/interp/nrunopt.boot
@@ -384,7 +384,6 @@ NRTcatCompare [catform,:pred] == LASSOC(first catform,$levelAlist)
 hasDefaultPackage catname ==
   defname := INTERN STRCONC(catname,'"&")
   constructor? defname => defname
---MEMQ(defname,allConstructors()) => defname
   nil
  
  
@@ -911,6 +910,6 @@ expandTypeArgs(u,template,domform) ==
  
 templateVal(template,domform,index) ==
 --returns a domform or a lazy slot
-  index = 0 => harhar() --template
+  index = 0 => BREAK() --template
   template.index
 
-- 
cgit v1.2.3