Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add back library code

Browse source
This commit is contained in:
Justin Ethier 2016-04-27 22:58:46 -04:00
parent 142944fc1a
commit 12aad70d9f
1 changed files with 34 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

69
srfi/69.sld
View file

@ -6,44 +6,43 @@
;;;; ;;;;
;;;; This is based on the implementation from SRFI 69. ;;;; This is based on the implementation from SRFI 69.
;;;; ;;;;
;(define-library (srfi 69) (define-library (srfi 69)
; (export (export
; ;;Type constructors and predicate ;;Type constructors and predicate
; make-hash-table make-hash-table
; hash-table? hash-table?
; alist->hash-table alist->hash-table
; ;;Reflective queries ;;Reflective queries
; hash-table-equivalence-function hash-table-equivalence-function
; hash-table-hash-function hash-table-hash-function
; ;;Dealing with single elements ;;Dealing with single elements
; hash-table-ref hash-table-ref
; hash-table-ref/default hash-table-ref/default
; hash-table-set! hash-table-set!
; hash-table-delete! hash-table-delete!
; hash-table-exists? hash-table-exists?
; hash-table-update! hash-table-update!
; hash-table-update!/default hash-table-update!/default
; ;;Dealing with the whole contents ;;Dealing with the whole contents
; hash-table-size hash-table-size
; hash-table-keys hash-table-keys
; hash-table-values hash-table-values
; hash-table-walk hash-table-walk
; hash-table-fold hash-table-fold
; hash-table->alist hash-table->alist
; hash-table-copy hash-table-copy
; hash-table-merge! hash-table-merge!
; ;;Hashing ;;Hashing
; hash hash
; string-hash string-hash
; string-ci-hash string-ci-hash
; hash-by-identity hash-by-identity
; ) )
(import (scheme base) (import (scheme base)
(scheme char) (scheme char)
(scheme complex)
;(scheme cyclone util) ;(scheme cyclone util)
) )
; (begin (begin
(define *default-bound* (- (expt 2 29) 3)) (define *default-bound* (- (expt 2 29) 3))
(define (%string-hash s ch-conv bound) (define (%string-hash s ch-conv bound)
@ -298,4 +297,4 @@
(define (hash-table-values hash-table) (define (hash-table-values hash-table)
(hash-table-fold hash-table (lambda (key val acc) (cons val acc)) '())) (hash-table-fold hash-table (lambda (key val acc) (cons val acc)) '()))
;)) ))