Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

SRFI-69 can compile now well (weird problem)

  • Loading branch information...
commit eeb5ddd21c947500f94dac2642f98c9b5a17aa21 1 parent b39e150
Álvaro Castro-Castilla alvatar authored

Showing 1 changed file with 11 additions and 5 deletions. Show diff stats Hide diff stats

  1. +11 5 srfi/69.scm
16 srfi/69.scm
@@ -2,7 +2,7 @@
2 2 ;;
3 3 ;; Adapted to Blackhole for Gambit by Álvaro Castro-Castilla
4 4
5   -#;(export make-hash-table hash-table? alist->hash-table
  5 +(export make-hash-table hash-table? alist->hash-table
6 6 hash-table-equivalence-function hash-table-hash-function
7 7 hash-table-ref hash-table-ref/default hash-table-set!
8 8 hash-table-delete! hash-table-exists? hash-table-update!
@@ -80,14 +80,20 @@
80 80 ;; (compare hash-table-equivalence-function)
81 81 ;; (associate hash-table-association-function)
82 82 ;; (entries hash-table-entries hash-table-set-entries!))
83   -(define-type hash-table
  83 +(define-type %hash-table
84 84 size
85 85 hash-function
86 86 equivalence-function
87 87 association-function
88 88 entries)
89   -(define %make-hash-table make-hash-table)
90   -(define hash-table-set-size! hash-table-size-set!)
  89 +(define hash-table-set-size! %hash-table-size-set!)
  90 +(define hash-table? %hash-table?)
  91 +(define hash-table-size %hash-table-size)
  92 +(define hash-table-hash-function %hash-table-hash-function)
  93 +(define hash-table-equivalence-function %hash-table-equivalence-function)
  94 +(define hash-table-association-function %hash-table-association-function)
  95 +(define hash-table-entries %hash-table-entries)
  96 +(define hash-table-set-entries! %hash-table-entries-set!)
91 97 ;; @End
92 98
93 99 (define *default-table-size* 64)
@@ -117,7 +123,7 @@
117 123 ((comparison val (caar alist)) (car alist))
118 124 (else (associate val (cdr alist)))))))
119 125 associate))))
120   - (%make-hash-table 0 hash comparison association (make-vector size '()))))
  126 + (make-%hash-table 0 hash comparison association (make-vector size '()))))
121 127
122 128 (define (make-hash-table-maker comp hash)
123 129 (lambda args (apply make-hash-table (cons comp (cons hash args)))))

0 comments on commit eeb5ddd

Please sign in to comment.
Something went wrong with that request. Please try again.