Permalink
Browse files

knr: code cleanup.

 * Reformat (if ...) forms to be consistent with other forms.
 * Convert (let ...) forms that I can to (define ...)
 * Whitespace
 * Additional comments and comment cleanup.

git-svn-id: https://code.call-cc.org/svn/chicken-eggs/release/4/genturfahi/trunk@21218 fca3e652-9b03-0410-8d7b-ac86a6ce46c4
  • Loading branch information...
1 parent e6ee0d8 commit 35777be91c20e80f78288a2ef36b34fd0c5f2694 alanpost committed Nov 1, 2010
Showing with 1 addition and 12 deletions.
  1. +1 −12 nunjavni.scm
View
@@ -54,17 +54,6 @@
(make-javni-valsi-nacmene (lerfu-porsi-lerfu porsi)))))))
-;; selci: parse any single character.
-;;
-(define (nunjavni-.)
- (lambda (porsi mapti namapti)
- (if (lerfu-porsi-fanmo? porsi)
- (namapti porsi)
- (mapti (make-lerfu-porsi-pabalvi-lerfu porsi)
- (lambda ()
- (make-javni-valsi-nacmene (lerfu-porsi-lerfu porsi)))))))
-
-
;; empty-string: parse the empty string, which always succeeds without
;; advancing input.
;;
@@ -73,7 +62,7 @@
(mapti porsi (lambda () (make-javni-valsi-nacmene "")))))
-;; regular expression: match the provided regular expression pattern
+;; regular expression: match the provided in regular expression
;;
(define (nunjavni-re pattern)
(let ((re (regexp (string-append "^" pattern))))

0 comments on commit 35777be

Please sign in to comment.