mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 01:10:24 +02:00
Code Activity

(hashq-cons-get-handle): Pass only the expected four arguments to

Browse source 
hashx-get-handle.  Thanks to Kevin Ryde!
This commit is contained in:
Marius Vollmer 2003-05-03 20:42:02 +00:00
parent 8e16737868
commit 431041f23a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/hcons.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; 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 ;;;; 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 ;;;; it under the terms of the GNU General Public License as published by
@ -73,7 +73,7 @@
(hashq-cons-assoc key (cdr l))))) (hashq-cons-assoc key (cdr l)))))
(define (hashq-cons-get-handle table key) (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) (define (hashq-cons-create-handle! table key init)
(hashx-create-handle! hashq-cons-hash hashq-cons-assoc table key init)) (hashx-create-handle! hashq-cons-hash hashq-cons-assoc table key init))