From 3467029153bc8d2115fb961eb5e4e995d62034f0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 18 Jul 2010 05:43:52 +0000 Subject: More cleanups --- src/interp/interop.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/interop.boot') diff --git a/src/interp/interop.boot b/src/interp/interop.boot index eefb82ea..d260b7cb 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -583,7 +583,7 @@ newHasCategory(domain,catform) == lazyMatchAssocV(catform,auxvec,catvec,domain) --new style getCatForm(catvec, index, domain) == - NUMBERP(form := QVELT(catvec,index)) => domain.form + integer?(form := QVELT(catvec,index)) => domain.form form HasSignature(domain,[op,sig]) == -- cgit v1.2.3