From 7ce499d2b38d3c22c03e5c7838f19a269b0162d4 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Mon, 14 Mar 2011 18:58:39 -0400
Subject: [PATCH] adding missing defn for append
---
simulator-primitives.rkt | 1 +
tests/conform/program0.sch | 6 ++++++
2 files changed, 7 insertions(+)
diff --git a/simulator-primitives.rkt b/simulator-primitives.rkt
index 087de4e..6eefa7c 100644
--- a/simulator-primitives.rkt
+++ b/simulator-primitives.rkt
@@ -116,6 +116,7 @@
symbol->string
string-append
+ string-length
(my-cons cons)
(my-list list)
diff --git a/tests/conform/program0.sch b/tests/conform/program0.sch
index 8c99991..9fbe3d9 100644
--- a/tests/conform/program0.sch
+++ b/tests/conform/program0.sch
@@ -37,6 +37,12 @@
(add1 (length (cdr l)))))
+(define (append l1 l2)
+ (if (null? l1)
+ l2
+ (cons (car l1) (append (cdr l1) l2))))
+
+
(define vector-copy
(lambda (v)
(let ((length (vector-length v)))