From 0d4390eadce17c17a9da048d15252473bfc94a59 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 10 Oct 2008 20:13:08 +0000
Subject: Fix typo from last commit

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

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index c7c9443a..66f13aae 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1101,11 +1101,11 @@ backendCompileSPADSLAM(name,args,body) ==
   argtran := second u          -- devaluate argument
   app := third u
   codePart1 :=                 -- if value already computed, grab it.
-    null args = nil => [al]
+    null args => [al]
     [["SETQ",g2,["assoc",argtran,al]], ["CDR",g2]]
   codePart2 :=                 -- otherwise compute it, and cache it.
                                -- Note: at most five values are cached.
-    null args = nil => [true,["SETQ",al,app]]
+    null args => [true,["SETQ",al,app]]
     [true,["SETQ",al,["cons5",["CONS",argtran, ["SETQ",g2,app]],al]],g2]
   decl :=                      -- declare the cache variable.
     null args => nil
-- 
cgit v1.2.3