conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

exported enum-set?.

This commit is contained in:
Abdulaziz Ghuloum 2008-08-08 08:29:18 -07:00
parent b7d9c0cf1f
commit c5930ac113
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.enumerations.ss
View File

@ -18,7 +18,7 @@
enum-set-constructor enum-set->list enum-set-member? enum-set-constructor enum-set->list enum-set-member?
enum-set-subset? enum-set=? enum-set-union enum-set-difference enum-set-subset? enum-set=? enum-set-union enum-set-difference
enum-set-intersection enum-set-complement enum-set-projection enum-set-intersection enum-set-complement enum-set-projection
make-file-options) make-file-options enum-set?)
(import (import
(except (ikarus) (except (ikarus)
make-enumeration enum-set-universe enum-set-indexer make-enumeration enum-set-universe enum-set-indexer
@ -26,7 +26,7 @@
enum-set-subset? enum-set=? enum-set-union enum-set-difference enum-set-subset? enum-set=? enum-set-union enum-set-difference
enum-set-intersection enum-set-complement enum-set-intersection enum-set-complement
enum-set-projection enum-set-projection
make-file-options)) make-file-options enum-set?))
(define-record-type enum-type (define-record-type enum-type
(fields id mask symbol->index-hashtable index->symbol-vector) (fields id mask symbol->index-hashtable index->symbol-vector)

2
scheme/last-revision
View File

@ -1 +1 @@
1575 1576

1
scheme/makefile.ss
View File

@ -1034,6 +1034,7 @@
[enum-set-universe i r en] [enum-set-universe i r en]
[enum-set=? i r en] [enum-set=? i r en]
[make-enumeration i r en] [make-enumeration i r en]
[enum-set? i]
[environment i ev] [environment i ev]
[eval i ev se] [eval i ev se]
[raise i r ex] [raise i r ex]