mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

(system base types) knows about variables

Browse source 
* module/system/base/types.scm (%tc7-variable): New tc7.
  (cell->object): Handle tc7-variable.

* test-suite/tests/types.test ("opaque objects"): Add a test.
This commit is contained in:
Andy Wingo 2015-02-17 10:58:29 +01:00
parent 37ae02ffa0
commit 577eab817c
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
test-suite/tests/types.test
View file

@ -101,6 +101,7 @@
((%make-void-port "w") port (? integer?))
((open-input-string "hello") port (? integer?))
((lambda () #t) program _)
((make-variable 'foo) variable _)
((make-weak-vector 3 #t) weak-vector _)
((make-weak-key-hash-table) weak-table _)
((make-weak-value-hash-table) weak-table _)