equal
deleted
inserted
replaced
102 (define-primitive vm [24 (unbv b) (unbv* av a)] (mkbv (obj-class av) (bytes-append a b))) |
102 (define-primitive vm [24 (unbv b) (unbv* av a)] (mkbv (obj-class av) (bytes-append a b))) |
103 (define-primitive vm [26 (unbv a) (unbv b)] ;; NB. ordering |
103 (define-primitive vm [26 (unbv a) (unbv b)] ;; NB. ordering |
104 (cond [(bytes<? a b) -1] |
104 (cond [(bytes<? a b) -1] |
105 [(bytes=? a b) 0] |
105 [(bytes=? a b) 0] |
106 [(bytes>? a b) 1])) |
106 [(bytes>? a b) 1])) |
|
107 |
|
108 (define-primitive vm [29 filename] (save-image-to-file vm (bv->string filename))) |
107 |
109 |
108 (define-primitive vm [30 source index] (slotAt source (- index 1))) |
110 (define-primitive vm [30 source index] (slotAt source (- index 1))) |
109 (define-primitive vm [31 v o] (obj (obj-class o) (vector-append (obj-slots o) (vector v)))) |
111 (define-primitive vm [31 v o] (obj (obj-class o) (vector-append (obj-slots o) (vector v)))) |
110 |
112 |
111 (define-primitive vm [41 class (unstr filename)] |
113 (define-primitive vm [41 class (unstr filename)] |