From 7b0b25d63ed483cc9ccd9525b5904feda65dc807 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 28 Oct 2007 10:43:54 +0000 Subject: * Makefile.pamphlet (category.$(FASLEXT)): New rule. (<>): Remove. * category.boot.pamphlet: Push into package "BOOT". Replace ASSOC with assoc throughout. (mkCategory): Fix syntax. * i-coerce.boot.pamphlet (stripUnionTags): Move to g-util.boot. (isTaggeUnion): Likewise. (getUnionOrRecordTags): Likewise. * i-util.boot.pamphlet (wrap): Move to i-object.boot. (isWrapped): Likewise. (unwrap): Likewise. (wrapped2Quote): Likewise. (quote2Wrapped): Likewise. (removeQuote): Likewise. (TruthP): Move to g-util.boot. --- src/interp/i-util.boot.pamphlet | 39 --------------------------------------- 1 file changed, 39 deletions(-) (limited to 'src/interp/i-util.boot.pamphlet') diff --git a/src/interp/i-util.boot.pamphlet b/src/interp/i-util.boot.pamphlet index 54cf2874..c0d785da 100644 --- a/src/interp/i-util.boot.pamphlet +++ b/src/interp/i-util.boot.pamphlet @@ -58,35 +58,6 @@ lisp code is unwrapped. <<*>>= <> ---% Utility Functions Used Only by the Intepreter - -wrap x == - isWrapped x => x - ['WRAPPED,:x] - -isWrapped x == x is ['WRAPPED,:.] or NUMBERP x or FLOATP x or CVECP x - -unwrap x == - NUMBERP x or FLOATP x or CVECP x => x - x is ["WRAPPED",:y] => y - x - -wrapped2Quote x == - x is ["WRAPPED",:y] => MKQ y - x - -quote2Wrapped x == - x is ['QUOTE,y] => wrap y - x - -removeQuote x == - x is ["QUOTE",y] => y - x - --- addQuote x == --- NUMBERP x => x --- ['QUOTE,x] - --% The function for making prompts spadPrompt() == @@ -287,16 +258,6 @@ mkPredList listOfEntries == [u,:tagPredList]:= tagPredList u predList - -TruthP x == - --True if x is a predicate that's always true - x is nil => nil - x=true => true - x is ['QUOTE,:.] => true - nil - - - -- cgit v1.2.3