From e813f56af68f00663d6df03c4ed1ff6f85873716 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 27 May 2013 06:28:15 +0000 Subject: Rename MAKE-FULL-FILENAME to makeFullFilename. --- src/boot/ast.boot | 1 + 1 file changed, 1 insertion(+) (limited to 'src/boot/ast.boot') diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 6410b524..dfffa58a 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -761,6 +761,7 @@ bfIS1(tu,lhs,rhs) == rhs = true => ['EQ,lhs,rhs] bfString? rhs => bfAND [['STRINGP,lhs],["STRING=",lhs,rhs]] bfChar? rhs or integer? rhs => ['EQL,lhs,rhs] + inert? rhs => ['EQ,lhs,rhs] rhs isnt [.,:.] => ['PROGN,bfLetForm(rhs,lhs),'T] rhs.op is 'QUOTE => [.,a] := rhs -- cgit v1.2.3