diff options
| author | IOhannes m zmölnig <zmoelnig@umlautS.umlaeute.mur.at> | 2019-08-19 21:13:31 +0200 |
|---|---|---|
| committer | IOhannes m zmölnig <zmoelnig@umlautS.umlaeute.mur.at> | 2019-08-19 21:13:31 +0200 |
| commit | 3daa05c5a6f63979cb9d756027166027deb04b1d (patch) | |
| tree | e1dfe65c1a508cb4997cc9749b1e4a37568b3b76 /CM_patterns.scm | |
| parent | 00db67990e4b174c838e962a868f02d5d9317a14 (diff) | |
New upstream version 19.6
Diffstat (limited to 'CM_patterns.scm')
| -rw-r--r-- | CM_patterns.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/CM_patterns.scm b/CM_patterns.scm index 5bb0837..7f521c9 100644 --- a/CM_patterns.scm +++ b/CM_patterns.scm @@ -213,7 +213,7 @@ (define (%alloc-pattern) ;; flags data length datum period value state limit returning counting traversing next mapr cache - (make-pattern 0 (list) #f +nad+ #f +nad+ +nad+ most-positive-fixnum #f #:periods #:depth-first + (make-pattern 0 (list) #f +nad+ #f +nad+ +nad+ (*s7* 'most-positive-fixnum) #f #:periods #:depth-first #f #f #f)) (define (initialize-pattern obj data for rep flags len dper getr mapr) @@ -258,7 +258,7 @@ +count-values+)) (set! flags (logior flags +count-periods+))))) (pattern-repeat-set! obj (if (and (number? rep) (> rep 0)) - rep most-positive-fixnum)) + rep (*s7* 'most-positive-fixnum))) (let ((per (or for dper))) ;; period not specified so mark that we are using default period (when (not for) |