From 51828facc9bb3dd130b723cb49b1b5eff04231dd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 12 Dec 2010 19:35:37 +0000
Subject: Fix codegen for pattern matching strings

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

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

diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index a3427d0f..92ccc0f7 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -657,7 +657,7 @@ deepChaseInferences(pred,$e) ==
 
 vectorLocation(op,sig) ==
   u := or/[i for i in 1.. for u in $NRTdeltaList
-        | u is [=op,[='$,: xsig],:.] and sig=NRTsubstDelta(xsig) ]
+        | u is [=op,['$,: xsig],:.] and sig=NRTsubstDelta(xsig) ]
   u => $NRTdeltaLength - u + $NRTbase 
   nil    -- this signals that calls should be forwarded
 
-- 
cgit v1.2.3