mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 04:00:26 +02:00
Code Activity

* slib.scm (identity): Removed. (Provided by core.)

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-03-12 09:28:20 +00:00
parent 8dd18ceaf5
commit 509a787a4c
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,3 +1,7 @@
2003-03-12 Mikael Djurfeldt <mdj@kvast.blakulla.net>
* slib.scm (identity): Removed. (Provided by core.)
2003-03-11 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2003-03-11 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* debugger/command-loop.scm: Prefix all commands imported from * debugger/command-loop.scm: Prefix all commands imported from

5
ice-9/slib.scm
View file

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