diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-04-30 05:53:17 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-04-30 05:53:17 +0000 |
| commit | 59dfd29ba54016b24ff691969bdd03d1b8a7225d (patch) | |
| tree | d12ec33932b3443d5098e611f1502fe0bdc9e6b6 /src/interp/fortcall.boot | |
| parent | 7bd660a8c61540adcd0998122d89b3692cd127f8 (diff) | |
| download | open-axiom-59dfd29ba54016b24ff691969bdd03d1b8a7225d.tar.gz | |
* interp/fortcall.boot: Use copyTree, not COPY-TREE.
* interp/i-intern.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/i-output.boot: Use abstractChar, not EBCDIC.
* interp/i-util.boot: Likewise.
* interp/vmlisp.lisp (EBCDIC): Remove.
(CALLBELOW): Likewise.
(RE-ENABLE-INT): Likewise.
(QUOREM): Likewise.
Diffstat (limited to 'src/interp/fortcall.boot')
| -rw-r--r-- | src/interp/fortcall.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index a5907f06..849def4f 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2011, Gabriel Dos Reis. +-- Copyright (C) 2007-2012, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -750,7 +750,7 @@ multiToUnivariate f == vars := CDADR f -- throw away '%Comma at start of variable list else vars := [second f] - body := COPY_-TREE third f + body := copyTree third f newVariable := gensym() for index in 0..#vars-1 repeat -- Remember that AXIOM lists, vectors etc are indexed from 1 @@ -769,7 +769,7 @@ functionAndJacobian f == vars := [second f] #(vars) ~= #(CDADDR f) => error "number of variables should equal number of functions" - funBodies := COPY_-TREE CDADDR f + funBodies := copyTree CDADDR f jacBodies := [:[DF(f,v) for v in vars] for f in funBodies] where DF(fn,var) == ["@",["convert",["differentiate",fn,var]],"InputForm"] @@ -795,7 +795,7 @@ vectorOfFunctions f == vars := CDADR f -- throw away '%Comma at start of variable list else vars := [second f] - funBodies := COPY_-TREE CDADDR f + funBodies := copyTree CDADDR f newVariable := gensym() for index in 0..#vars-1 repeat -- Remember that AXIOM lists, vectors etc are indexed from 1 |