source: project/release/3/levenshtein/trunk/levenshtein-fixnum-means.scm @ 9817

Last change on this file since 9817 was 9817, checked in by Kon Lovett, 12 years ago

Removed syntax-case dependency.

File size: 694 bytes
Line 
1;;;; levenshtein-fixnum-means.scm
2;;;; Kon Lovett, May '06
3
4(use syntax-case procedure-surface levenshtein-numeric-surface)
5
6(eval-when (compile)
7  (declare
8    (usual-integrations)
9    (fixnum)
10    (inline)
11    (no-procedure-checks)
12    (no-bound-checks)
13    (export
14      levenshtein-fixnum-means ) ) )
15
16(declare-procedure-means levenshtein-fixnum-means levenshtein-numeric-surface
17  #:immutable #t
18  number?     fixnum?
19  *           fx*
20  +           fx+
21  min         (lambda (num . nums)
22                (let loop ([nums nums] [min num])
23                  (if (null? nums)
24                      min
25                      (loop (cdr nums) (fxmin min (car nums))) ) ) )
26  <           fx< )
Note: See TracBrowser for help on using the repository browser.