mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

set module version in module-export-all!

Browse source 
* module/ice-9/boot-9.scm (module-export-all!): Set the interface
  version as well.
This commit is contained in:
Andy Wingo 2010-06-16 21:32:52 +02:00
parent 393929957d
commit e5602ce73e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -3107,7 +3107,7 @@ module '(ice-9 q) '(make-q q-length))}."
(define (fresh-interface!)
(let ((iface (make-module)))
(set-module-name! iface (module-name mod))
;; for guile 2: (set-module-version! iface (module-version mod))
(set-module-version! iface (module-version mod))
(set-module-kind! iface 'interface)
(set-module-public-interface! mod iface)
iface))