Changeset 27501 in project


Ignore:
Timestamp:
09/29/12 13:37:53 (8 years ago)
Author:
felix winkelmann
Message:

chosing a more suitable name

Location:
release/4/sixtyfive-oh-two
Files:
5 added
3 deleted
2 edited
5 copied

Legend:

Unmodified
Added
Removed
  • release/4/sixtyfive-oh-two/stuff/fig-forth/Makefile

    r27474 r27501  
    55LDFLAGS=-ldl
    66SHFLAGS=-shared
    7 AS=../acme091/src/acme
     7AS=acme
    88ASFLAGS=-f plain
    99CSC=csc
  • release/4/sixtyfive-oh-two/trunk/tests/forth.scm

    r27471 r27501  
    22
    33
    4 (use cpu6502 srfi-4 lolevel utils format)
     4(use sixtyfive-oh-two srfi-4 lolevel utils format)
    55
    66
  • release/4/sixtyfive-oh-two/trunk/tests/run.scm

    r27474 r27501  
    1 ;;;; test cpu6502
     1;;;; test
    22
    33
    4 (use cpu6502 srfi-4 lolevel utils miscmacros)
     4(use sixtyfive-oh-two srfi-4 lolevel utils miscmacros)
    55
    66
     
    4747;;---
    4848
    49 
    5049(let ((result
    51        (with-input-from-string "3 4 + .\n"
     50       (with-input-from-string ": sum ( n - ) 0 swap 0 do i + loop ;\n10000 sum . cr\n"
    5251         (lambda ()
    5352           (with-output-to-string
     
    5655               (ignore-errors
    5756                (compile-file "forth.scm"))))))))
    58   (display result)
    59   (assert (string=? result "\nfig-FORTH  1.1\n7 OK\n")))
     57  (pp result)
     58  (assert (string=? result "\nfig-FORTH  1.1\nOK\n-8968 \nOK\n")))
Note: See TracChangeset for help on using the changeset viewer.