diff options
Diffstat (limited to 'src/interp/g-util.boot.pamphlet')
| -rw-r--r-- | src/interp/g-util.boot.pamphlet | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/g-util.boot.pamphlet b/src/interp/g-util.boot.pamphlet index deaf2b5c..05e262c8 100644 --- a/src/interp/g-util.boot.pamphlet +++ b/src/interp/g-util.boot.pamphlet @@ -54,6 +54,11 @@ --% Utility Functions of General Use +ELEMN(x, n, d) == + null x => d + n = 1 => car x + ELEMN(cdr x, SUB1 n, d) + PPtoFile(x, fname) == stream := DEFIOSTREAM([['MODE, :'OUTPUT], ['FILE, :fname]], 80, 0) PRETTYPRINT(x, stream) |