Fix minor errors.

3 files changed, 6 insertions, 6 deletions

diff --git a/module/c/lex.scm b/module/c/lex.scm
index 34e52d88..977f497f 100644
--- a/module/c/lex.scm
+++ b/module/c/lex.scm
@@ -65,16 +65,16 @@
 (define-peg-pattern char all
   (and (ignore "'") (or escaped-char peg-any) (ignore "'")))
 
+;; whitespace
+(define-peg-pattern ws none
+  (or " " "	" "\n"))
+
 
 (define-peg-pattern* operator all
   `(or ,@(map symbol->string symbol-binary-operators)
        ,@(map (lambda (op) `(and ,(symbol->string op) ws))
               wordy-binary-operators)))
 
-;; whitespace
-(define-peg-pattern ws none
-  (or " " "	" "\n"))
-
 ;; space (for when whitespace is optional)
 (define-peg-pattern sp none (* ws))
 
diff --git a/module/datetime/zic.scm b/module/datetime/zic.scm
index 955ecd1c..ace3d991 100644
--- a/module/datetime/zic.scm
+++ b/module/datetime/zic.scm
@@ -275,7 +275,7 @@
                       ;; technical dept.
                       (scm-error 'misc-error "parse-zic-file"
                                  (G_ "Invalid key ~s. Note that leap seconds and expries rules aren't yet implemented.")
-                                 (list type)
+                                 (list (car tokens))
                                  #f)))]))))))
 
 
diff --git a/module/scripts/peg-to-graph.scm b/module/scripts/peg-to-graph.scm
index e2a829f9..afd7a4c3 100755
--- a/module/scripts/peg-to-graph.scm
+++ b/module/scripts/peg-to-graph.scm
@@ -40,7 +40,7 @@
                        (unique-symbols (list body)))))))
 
 (define (main . args)
-  (define options (getopt-long (cons "peg-to-graph" argrs)
+  (define options (getopt-long (cons "peg-to-graph" args)
                                (getopt-opt option-spec)))
   (define engine (option-ref options 'engine "dot"))
   (define output-file (option-ref options 'output "lex2.pdf"))