Changeset 8334 in project


Ignore:
Timestamp:
02/11/08 03:00:51 (12 years ago)
Author:
graham
Message:

performance improvements

Location:
release/3/hart/trunk
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • release/3/hart/trunk/hart-support.scm

    r8269 r8334  
    2929                               (cons (car lst) acc)))))
    3030
    31 (define (hart-print . args)
    32   (for-each (lambda (a) (write-string (->string a))) args))
     31(define (hart-print . lst)
     32  (for-each (cut ##sys#print <> #f ##sys#standard-output) lst) )
    3333
    3434;;; the parser
  • release/3/hart/trunk/hart.scm

    r8179 r8334  
    3333    (match-let (((iter the-lst) args))
    3434               `(let* ((,lst ,the-lst)
    35                        (,foreach (match ,lst
    36                                         ((? list?) for-each)
    37                                         ((? vector?) hart-vector-for-each*))))
     35                       (,foreach (if (list? ,lst)
     36                                     for-each
     37                                     hart-vector-for-each*)))
    3838                  (,foreach (lambda (,real-iter)
    3939                              (match-let ((,iter ,real-iter))
  • release/3/hart/trunk/hart.setup

    r8218 r8334  
    11;; -*- mode: scheme -*-
    22
    3 (run (csc -s -X hart.scm hart-support.scm fast_escape.c))
     3(run (csc -O1 -s -X hart.scm hart-support.scm fast_escape.c))
    44
    55(install-extension
Note: See TracChangeset for help on using the changeset viewer.