(emit-annotations #t)
(emit-debugging-symbols #t)
(require-library "sisc/libs/srfi")
(import srfi-1)
(import srfi-9)
(import srfi-13)
(import srfi-23)
(import hashtable)

(define make-hash-table
  (lambda args
    (make-hashtable (if (memv 'equal args)
			equal?
			eq?))))

(define (hash-table-for-each ht proc)
  (for-each (lambda (entry)
	      (proc (car entry) (cdr entry)))
	    (hashtable->alist ht)))

(define (hash-table-map ht proc)
  (map (lambda (entry)
	 (proc (car entry) (cdr entry)))
       (hashtable->alist ht)))

(define hash-table-get
  (let ((default "default"))
    (lambda (ht key thunk)
      (let ((result (hashtable/get ht key default)))
	(if (eq? result default)
	    (thunk)
	    result)))))

(define (hash-table-put! ht k v)
  (hashtable/put! ht k v))

(define hash-table-remove! hashtable/remove!)

(define (command-line-arguments)
  '())