mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-28 16:00:22 +02:00
(hashq-cons-get-handle): Pass only the expected four arguments to
hashx-get-handle. Thanks to Kevin Ryde!
This commit is contained in:
parent
8e16737868
commit
431041f23a
1 changed files with 2 additions and 2 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue