Changeset 21954 in project


Ignore:
Timestamp:
12/13/10 16:30:08 (9 years ago)
Author:
Alan Post
Message:

genturfa'i: disable memoization in rule generators.

The equal? procedure descends into procedures, rather than using
eq?. This causes infinite loops when using this routine on the
precedures generated by the compiler.

Disable this (temporarily) by using eq?, which is never true.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/genturfahi/trunk/morji.scm

    r21950 r21954  
    4242      ;;
    4343      (lambda (nunjavni)
    44         (let ((morji (make-hash-table equal?)))
     44        ; XXX: "equal?" causes infinite recursion on Chicken Scheme
     45        (let ((morji (make-hash-table eq?)))
    4546          (define (morji-nunjavni . sumti)
    4647            (hash-table-ref morji
Note: See TracChangeset for help on using the changeset viewer.