diff options
author | dos-reis <gdr@axiomatics.org> | 2011-01-19 09:06:24 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-01-19 09:06:24 +0000 |
commit | c8e50c69725188f4a48d1e215d00d917dfc7c3d1 (patch) | |
tree | 002236f8f6832b41c12a6733f4099c00c59a40cc /src/interp/c-util.boot | |
parent | dd38e4a9c05df5de7c133cbb8d60fd10c7b56f5c (diff) | |
download | open-axiom-c8e50c69725188f4a48d1e215d00d917dfc7c3d1.tar.gz |
* interp/vmlisp.lisp (FIXP): Remove.
* interp/alql.boot: Use integer? instead of FIXP.
* interp/br-con.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/c-util.boot: Likewise.
* interp/fnewmeta.lisp: Likewise.
* interp/ht-root.boot: Likewise.
* interp/i-analy.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/i-toplev.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/pspad1.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/showimp.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/topics.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
* interp/word.boot: Likewise.
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index cc3f2f64..cfb68f21 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2010, Gabriel Dos Reis. +-- Copyright (C) 2007-2011, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -109,7 +109,7 @@ $optExportedFunctionReference := false ++ Quote form, if not a basic value. quoteMinimally form == - FIXP form or string? form or form = nil or form = true => form + integer? form or string? form or form = nil or form = true => form ["QUOTE",form] ++ If using old `Rep' definition semantics, return `$' when m is `Rep'. @@ -1626,7 +1626,7 @@ isFormal x == ++ Expand the form at position `slot' in the domain template `shell' ++ with argument list `args'. expandFormTemplate(shell,args,slot) == - FIXP slot => + integer? slot => slot = 0 => "$" slot = 2 => "$$" expandFormTemplate(shell,args,getShellEntry(shell,slot)) @@ -1642,7 +1642,7 @@ expandFormTemplate(shell,args,slot) == ++ Compare the form at `slot' in the domain templare `shell' ++ for equality with `form'. equalFormTemplate(shell,args,slot,form) == - FIXP slot => + integer? slot => slot = 0 => form = "$" slot = 2 => form = "$$" equalFormTemplate(shell,args,getShellEntry(shell,slot),form) @@ -1680,7 +1680,7 @@ getFunctionTemplate(sig,start,end,shell,args,funDesc) == for k in i.. for t in sig] => nil -- Grab the location of this match loc := - FIXP loc => "ambiguous" + integer? loc => "ambiguous" funDesc.(i + n + 1) start := start + n + 4 loc @@ -1744,7 +1744,7 @@ lookupDefiningFunction(op,sig,dc) == fun is [.,.,[.,["dispatchFunction",fun'],.]] => fun' -- 6.2. An inherited function? fun is [idx,:.] => - not FIXP idx => nil -- a UFO? + not integer? idx => nil -- a UFO? loc := funDesc.(idx + 1) if loc = 0 then loc := 5 shell.loc = nil => nil |