Permalink
Browse files

[scripts] Some minor script fixes

misplaced newline and suppress override warning on srfi-19

Signed-off-by: Christopher Hall <hsw@openmoko.com>
  • Loading branch information...
1 parent d053f92 commit fd7d211f3fa7fd1184e3b0aaeb2d682193477cf2 @hxw hxw committed Jan 18, 2011
Showing with 3 additions and 3 deletions.
  1. +2 −2 samo-lib/grifo/scripts/MakeSystemCalls
  2. +1 −1 samo-lib/scripts/nls-installer
@@ -29,7 +29,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (command-line))" "$0" "$@"
:use-module (ice-9 rdelim)
:use-module (ice-9 regex)
:use-module (srfi srfi-1)
- :use-module (srfi srfi-19)
+ :use-module ((srfi srfi-19) :renamer (symbol-prefix-proc 'datetime:))
:export (script-entry-point))
(define-macro (unless cond . body)
@@ -57,7 +57,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (command-line))" "$0" "$@"
" * ***** DO NOT MODIFY *****"
" */" "~%") "~%")
file-name
- (date->string (current-date 0) "~Y-~m-~d ~H:~M:~S ~z")
+ (datetime:date->string (datetime:current-date 0) "~Y-~m-~d ~H:~M:~S ~z")
program-name))
@@ -44,7 +44,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (command-line))" "$0" "$@"
(format #t "error: ~a~%" message))
(format #t "usage: ~a <options>~%" *program*)
(format #t " --verbose -v more descriptive output~%")
- (format #t " --debug -d~% enable debugging outputs")
+ (format #t " --debug -d enable debugging outputs~%")
(format #t " --prefix=<path> -p <path> path prefix to image directory~%")
(format #t " --language=<lang> -l <lang> language code~%")
(format #t " --suffix=<suffix> -s <suffix> suffix (pedia,quote,dict,...)~%")

0 comments on commit fd7d211

Please sign in to comment.