From 8d54e85f14771c9d10f2bc223ccefd727060a487 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 8 Aug 2011 11:34:49 -0400 Subject: [PATCH] correcting spelling mistake in test case --- js-assembler/fracture.rkt | 1 - tests/test-assemble.rkt | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/js-assembler/fracture.rkt b/js-assembler/fracture.rkt index acaf6da..9edd613 100644 --- a/js-assembler/fracture.rkt +++ b/js-assembler/fracture.rkt @@ -38,7 +38,6 @@ (cons first-block-label (collect-general-jump-targets stmts))] [entry-points : (Listof Symbol) (cons first-block-label (collect-entry-points stmts))]) - (let: loop : (values (Listof BasicBlock) (Listof Symbol)) ([name : Symbol first-block-label] [acc : (Listof UnlabeledStatement) '()] diff --git a/tests/test-assemble.rkt b/tests/test-assemble.rkt index 3874d0e..993cdb0 100644 --- a/tests/test-assemble.rkt +++ b/tests/test-assemble.rkt @@ -235,7 +235,7 @@ 'closureStart)) (make-PopEnvironment (make-Const 2) (make-Const 0)) (make-AssignPrimOpStatement 'val (make-GetCompiledProcedureEntry)) - 'thEnd) + 'theEnd) "typeof(MACHINE.val) + ',' + (MACHINE.val === MACHINE.proc.label)") "function,true")