Merge pull request #12 from cmsc430/crook

crook

Author: dvanhorn

hoax-plus/compile-ops.rkt

@@ -173,6 +173,7 @@
            (theend (gensym 'theend)))
        (seq (Pop r8)
             (assert-natural r8)
+            (assert-char rax)
 
             ; special case for length = 0
             (Cmp r8 0)

hoax-plus/test/test-runner.rkt

@@ -143,6 +143,7 @@
     (check-equal? (run '"") "")
     (check-equal? (run '"fred") "fred")
     (check-equal? (run '"wilma") "wilma")
+    (check-equal? (run '(make-string 0 #t)) 'err)
     (check-equal? (run '(make-string 0 #\f)) "")
     (check-equal? (run '(make-string 3 #\f)) "fff")
     (check-equal? (run '(make-string 3 #\g)) "ggg")

iniquity-plus/compile-ops.rkt

@@ -161,6 +161,7 @@
            (theend (gensym 'theend)))
        (seq (Pop r8)
             (assert-natural r8)
+            (assert-char rax)
 
             ; special case for length = 0
             (Cmp r8 0)

iniquity-plus/test/test-runner.rkt

@@ -143,6 +143,7 @@
     (check-equal? (run '"") "")
     (check-equal? (run '"fred") "fred")
     (check-equal? (run '"wilma") "wilma")
+    (check-equal? (run '(make-string 0 #t)) 'err)
     (check-equal? (run '(make-string 0 #\f)) "")
     (check-equal? (run '(make-string 3 #\f)) "fff")
     (check-equal? (run '(make-string 3 #\g)) "ggg")

knock-plus/compile-ops.rkt

@@ -161,6 +161,7 @@
            (theend (gensym 'theend)))
        (seq (Pop r8)
             (assert-natural r8)
+            (assert-char rax)
 
             ; special case for length = 0
             (Cmp r8 0)

knock-plus/test/test-runner.rkt

@@ -143,6 +143,7 @@
     (check-equal? (run '"") "")
     (check-equal? (run '"fred") "fred")
     (check-equal? (run '"wilma") "wilma")
+    (check-equal? (run '(make-string 0 #t)) 'err)
     (check-equal? (run '(make-string 0 #\f)) "")
     (check-equal? (run '(make-string 3 #\f)) "fff")
     (check-equal? (run '(make-string 3 #\g)) "ggg")