/[guile]/guile/guile-core/ice-9/slib.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/slib.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by dirk, Sun Nov 24 08:18:19 2002 UTC revision 1.37 by mdj, Wed Mar 12 09:28:20 2003 UTC
# Line 1  Line 1 
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  ;;;;  ;;;;
# Line 47  Line 47 
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
# Line 243  Line 243 
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)

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26