1 files changed, 22 insertions, 11 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 6d19f0dd..9fa9777d 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -273,29 +273,40 @@ for x in [
     ['%isub,:"-"],
 
     -- unary float operations.
-    ['%fabs,:'ABS],
+    ['%fabs,  :'ABS],
+    ['%float?,:'FLOATP],
     -- binary float operations.
-    ['%fadd,:"+"],
-    ['%fge, :">="],
-    ['%fgt, :">"],
-    ['%fle, :"<="],
-    ['%flt, :"<"],
-    ['%fmax,:'MAX],
-    ['%fmin,:'MIN],
-    ['%fmul,:"*"],
-    ['%fpow,:'EXPT],
-    ['%fsub,:"-"],
+    ['%fadd,  :"+"],
+    ['%fge,   :">="],
+    ['%fgt,   :">"],
+    ['%fle,   :"<="],
+    ['%flt,   :"<"],
+    ['%fmax,  :'MAX],
+    ['%fmin,  :'MIN],
+    ['%fmul,  :"*"],
+    ['%fpow,  :'EXPT],
+    ['%fsub,  :"-"],
 
     -- list contants
     -- ['%nil, :'NIL],
     -- unary list operations
     ['%head,    :'CAR],
+    ['%makepair,:'CONS],
+    ['%lfirst,  :'CAR],
     ['%llength, :'LIST_-LENGTH],
+    ['%lsecond, :'CADR],
+    ['%lthird,  :'CADDR],
     ['%pair?,   :'CONSP],
     ['%tail,    :'CDR],
     -- binary list operations
     ['%lconcat, :'APPEND],
 
+    -- symbol unary functions
+    ['%gensym,  :'GENSYM],
+
+    -- string unary functions
+    ['%string?, :'STRINGP],
+
     -- general utility
     ['%hash,:'SXHASH]
   ] repeat property(first x,'%Rename) := rest x