From f70b2b1e8f5011f593c421a5edff7d038c960492 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 3 May 2003 20:41:30 +0000 Subject: [PATCH] (hashq-cons-get-handle): Pass only the expected four arguments to hashx-get-handle. Thanks to Kevin Ryde! --- ice-9/hcons.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ice-9/hcons.scm b/ice-9/hcons.scm index 597133cb2..b6c0816ca 100644 --- a/ice-9/hcons.scm +++ b/ice-9/hcons.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 1995, 1996, 1998, 2001 Free Software Foundation, Inc. +;;;; Copyright (C) 1995, 1996, 1998, 2001, 2003 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -48,7 +48,7 @@ (hashq-cons-assoc key (cdr l))))) (define (hashq-cons-get-handle table key) - (hashx-get-handle hashq-cons-hash hashq-cons-assoc table key #f)) + (hashx-get-handle hashq-cons-hash hashq-cons-assoc table key)) (define (hashq-cons-create-handle! table key init) (hashx-create-handle! hashq-cons-hash hashq-cons-assoc table key init))