← Back to branch summary

~aghuloum/r6rs-libraries/r6rs-libraries.dev

« back to all changes in this revision

Viewing changes to bigloo.r6rs.ss

  • Committer: Abdulaziz Ghuloum
  • Date: 2008-10-13 19:46:17 UTC
  • Revision ID: aghuloum@cs.indiana.edu-20081013194617-0cihmmgsc2yhod7z
- synched with the latest psyntax from ikarus sources
- gauche and mzscheme no longer work
  - mzscheme because they dropped set-car! and set-cdr!
  - gauche refuses to compile the source.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bigloo.r6rs.ss
76
76
      ((assq x (car h)) => (lambda (p) (set-cdr! p v)))
77
77
      (else (set-car! h (cons (cons x v) (car h)))))))
78
78
 
 
79
(define hashtable-entries
 
80
  (lambda (h)
 
81
    (values
 
82
      (list->vector (map car (car h)))
 
83
      (list->vector (map cdr (car h))))))
 
84
 
 
85
(define ellipsis-map map)
 
86
 
 
87
(define (vector-for-each f . vecs)
 
88
  (apply for-each f (map vector->list vecs)))
 
89
 
 
90
(define (assertion-violation . args)
 
91
  (apply error args))
79
92
(define gensym-count 0)
80
93
(define session-id 0)
81
94
(define strip