From c5e0a98b86381797e94c5d01c3c9f5dfc7d11cd6 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 10 Jan 2007 16:51:41 +0100 Subject: [PATCH] remove guile 1.6 compat code. --- scm/lily-library.scm | 21 +++------------------ 1 file changed, 3 insertions(+), 18 deletions(-) diff --git a/scm/lily-library.scm b/scm/lily-library.scm index e3a59a6439..dc69ad5df7 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -188,24 +188,9 @@ found." ;;;;;;;;;;;;;;;; ;; hash -(if (not (defined? 'hash-table?)) ;; guile 1.6 compat - (begin - (define hash-table? vector?) - (define-public (hash-for-each proc tab) - (hash-fold (lambda (k v prior) - (proc k v) - #f) - #f - tab)) - (define-public (hash-table->alist t) - "Convert table t to list" - (apply append (vector->list t)))) - - ;; native hashtabs. - (begin - (define-public (hash-table->alist t) - (hash-fold (lambda (k v acc) (acons k v acc)) - '() t)))) +(define-public (hash-table->alist t) + (hash-fold (lambda (k v acc) (acons k v acc)) + '() t)) ;; todo: code dup with C++. (define-safe-public (alist->hash-table lst) -- 2.39.5