1 |
;;;; slib.scm --- definitions needed to get SLIB to work with Guile |
;;;; slib.scm --- definitions needed to get SLIB to work with Guile |
2 |
;;;; |
;;;; |
3 |
;;;; Copyright (C) 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc. |
;;;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. |
4 |
;;;; |
;;;; |
5 |
;;;; This file is part of GUILE. |
;;;; This file is part of GUILE. |
6 |
;;;; |
;;;; |
47 |
:export (slib:load slib:load-source defmacro:load |
:export (slib:load slib:load-source defmacro:load |
48 |
implementation-vicinity library-vicinity home-vicinity |
implementation-vicinity library-vicinity home-vicinity |
49 |
scheme-implementation-type scheme-implementation-version |
scheme-implementation-type scheme-implementation-version |
50 |
output-port-width output-port-height identity array-indexes |
output-port-width output-port-height array-indexes |
51 |
make-random-state require slib:error slib:exit slib:warn slib:eval |
make-random-state require slib:error slib:exit slib:warn slib:eval |
52 |
defmacro:eval logical:logand logical:logior logical:logxor |
defmacro:eval logical:logand logical:logior logical:logxor |
53 |
logical:lognot logical:ash logical:logcount logical:integer-length |
logical:lognot logical:ash logical:logcount logical:integer-length |
243 |
|
|
244 |
(define (output-port-width . arg) 80) |
(define (output-port-width . arg) 80) |
245 |
(define (output-port-height . arg) 24) |
(define (output-port-height . arg) 24) |
|
(define (identity x) x) |
|
246 |
|
|
247 |
;;; {array-for-each} |
;;; {array-for-each} |
248 |
(define (array-indexes ra) |
(define (array-indexes ra) |