From 431041f23afb9a8170d598cc13174a90d1750144 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 3 May 2003 20:42:02 +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 811f9fd48..9e39b2e3c 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 program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -73,7 +73,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))