diff options
Diffstat (limited to 'src/interp/newfort.boot')
-rw-r--r-- | src/interp/newfort.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index 96240a71..f8b4cb4a 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -204,7 +204,7 @@ beenHere(e,n) == fun = 'CAR => RPLACA(loc,var) fun = 'CDR => - if PAIRP QCDR loc + if CONSP QCDR loc then RPLACD(loc,[var]) else RPLACD(loc,var) SAY '"whoops" |