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

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

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

revision 1.296 by mdj, Wed Jan 15 20:35:25 2003 UTC revision 1.297 by mdj, Tue Feb 11 13:49:26 2003 UTC
# Line 136  Line 136 
136  (define (1+ n) (+ n 1))  (define (1+ n) (+ n 1))
137  (define (1- n) (+ n -1))  (define (1- n) (+ n -1))
138  (define (and=> value procedure) (and value (procedure value)))  (define (and=> value procedure) (and value (procedure value)))
 (define (make-hash-table k) (make-vector k '()))  
139    
140  ;;; apply-to-args is functionally redundant with apply and, worse,  ;;; apply-to-args is functionally redundant with apply and, worse,
141  ;;; is less general than apply since it only takes two arguments.  ;;; is less general than apply since it only takes two arguments.

Legend:
Removed from v.1.296  
changed lines
  Added in v.1.297

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