From ef059f3f675f384c68c15076dbcf220be1e01eee Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 26 Aug 2014 10:07:17 +0000
Subject: Add generic Boot and Spad tokenizer.

---
 src/interp/simpbool.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/simpbool.boot b/src/interp/simpbool.boot
index 3432317d..e904869a 100644
--- a/src/interp/simpbool.boot
+++ b/src/interp/simpbool.boot
@@ -175,7 +175,7 @@ list3 l ==
 orDel(a,l) ==
   l is [h,:t] =>
     a = h => t
-    ?ORDER(a,h) => [a,:l]
+    _?ORDER(a,h) => [a,:l]
     [h,:orDel(a,t)]
   [a]
 ordList l ==
@@ -185,7 +185,7 @@ ordUnion(a,b) ==
   a isnt [c,:r] => b
   b isnt [d,:s] => a
   c=d => [c,:ordUnion(r,s)]
-  ?ORDER(a,b) => [c,:ordUnion(r,b)]
+  _?ORDER(a,b) => [c,:ordUnion(r,b)]
   [d,:ordUnion(s,a)]
 ordIntersection(a,b) ==
   a isnt [h,:t] => nil
-- 
cgit v1.2.3