Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added cond-expand form to ds/tree so that it can be run on non-blackh…

…ole as well
  • Loading branch information...
commit cf8015376e7b55210303e25268e6eabfba65ed34 1 parent 4ea15f1
@pereckerdal authored
Showing with 28 additions and 24 deletions.
  1. +28 −24 ds/tree.scm
View
52 ds/tree.scm
@@ -34,30 +34,34 @@
;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.
-
-(export tree?
- tree-size
- tree-min
- tree-max
- tree-fold
- tree-members
-
- tree-search
- tree-member?
-
- tree-add
- tree-delete
- tree-delete-min
- tree-delete-max
-
- tree-split<
- tree-split>
- tree-union
- tree-difference
- tree-intersection
-
- tree-rank
- tree-index)
+(cond-expand
+ (black-hole
+ (export tree?
+ tree-size
+ tree-min
+ tree-max
+ tree-fold
+ tree-members
+
+ tree-search
+ tree-member?
+
+ tree-add
+ tree-delete
+ tree-delete-min
+ tree-delete-max
+
+ tree-split<
+ tree-split>
+ tree-union
+ tree-difference
+ tree-intersection
+
+ tree-rank
+ tree-index))
+
+ (else
+ #f))
(define *tree-weight* 5)
Please sign in to comment.
Something went wrong with that request. Please try again.