GOOF----LE-8-2.0�H ] � 4 hg ] g guile� � g define-module*� � � g ice-9� g command-line� � g filenameS�
f ice-9/command-line.scm� g exportsS� g compile-shell-switches�
g version-etc� g *GPLv3+*� g *LGPLv3+*� g emit-bug-reporting-address�
� g autoloadsS� g system� g vm� � g set-default-vm-engine!� g set-vm-engine!� g the-vm� � � g set-current-module� � � g gettext� g _� f �License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.� !f �License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.� "g portS� #" �� $g copyright-yearS� %$ �� &g copyright-holderS� '& �� (g copyrightS� )( �� *g licenseS� +* �� ,g command-nameS� -, �� .g packagerS� /. �� 0g packager-versionS� 10 �� 2#%')+-/1 � 3g current-output-port� 4f Free Software Foundation, Inc.� 5g format� 6f Copyright (C) ~a ~a� 7f ~a (~a) ~a
� 8f ~a ~a
� 9f Packaged by ~a (~a)
� :f Packaged by ~a
� ;g display� <g newline� =g urlS� >= �� ?. �� @g packager-bug-addressS� A@ �� B#>?A � Cg
string-append� Df http://www.gnu.org/software/� Ef /� Ff
Report bugs to: ~a
� Gf Report ~a bugs to: ~a
� Hf ~a home page: <~a>
� If ?General help using GNU software: <http://www.gnu.org/gethelp/>
� Jf �Evaluate code with Guile, interactively or from a script.
[-s] FILE load source code from FILE, and exit
-c EXPR evalute expression EXPR, and exit
-- stop scanning arguments; run interactively
The above switches stop argument processing, and pass all
remaining arguments as the value of (command-line).
If FILE begins with `-' the -s switch is mandatory.
-L DIRECTORY add DIRECTORY to the front of the module load path
-C DIRECTORY like -L, but for compiled files
-x EXTENSION add EXTENSION to the front of the load extensions
-l FILE load source code from FILE
-e FUNCTION after reading script, apply FUNCTION to
command line arguments
--language=LANG change language; default: scheme
-ds do -s script at this point
--debug start with the "debugging" VM engine
--no-debug start with the normal VM engine (backtraces but
no breakpoints); default is --debug for interactive
use, but not for `-s' and `-c'.
--auto-compile compile source files automatically
--fresh-auto-compile invalidate auto-compilation cache
--no-auto-compile disable automatic source file compilation;
default is to enable auto-compilation of source
files.
--listen[=P] listen on a local port or a path for REPL clients;
if P is not given, the default is local port 37146
-q inhibit loading of user init file
--use-srfi=LS load SRFI modules for the SRFIs in LS,
which is a list of numbers like "2,13,14"
-h, --help display this help and exit
-v, --version display version information and exit
\ read arguments from following script lines� Kg *usage*� Lg current-error-port� Mg apply� Nf Usage: ~a [OPTION]... [FILE]...
� Of GNU Guile� Pf bug-guile@gnu.org� Qf "http://www.gnu.org/software/guile/� Rg assq-ref� Sg %guile-build-info� Tg packager� Ug packager-bug-address� Vg exit� Wg shell-usage� Xg current-language� Yg scheme� Zg call-with-input-string� [g read� \g eof-object?� ]g eval� ^g current-module� _g
module-ref� `g resolve-module� ag eval-string� ba � cg eval-string/lang� dg load-in-vicinity� eg getcwd� fg base� gg compile� hfg � ig compile-file� jg toS� kg value� lg load/lang� mf guile� ng string-prefix?� of -� pg string=?� qf -s� rf error: � sf missing argument to `-s' switch� tf ~%� ug @@� vul � wf -c� xf missing argument to `-c' switch� yuc � zf --� {f -l� |f missing argument to `-l' switch� }f -L� ~f missing argument to `-L' switch� f -C� �f missing argument to `-C' switch� �f -x� �f missing argument to `-x' switch� �f -e� �f missing argument to `-e' switch� �g open-input-string� �g memq� �g @� ��u � �g and-map� �g symbol?� �g main� �� � �f --language=� �g quote� �g string->symbol� �g substring� �f
--language� �f 'missing argument to `--language' option� �f -ds� �f )the -ds switch may only be specified once� �f --debug� �f
--no-debug� �f --auto-compile� �g %load-should-auto-compile� �f --fresh-auto-compile� �g %fresh-auto-compile� �f --no-auto-compile� �f -q� �f --use-srfi=� �g map� �g string->number� �f invalid SRFI specification� �g exact?� �g integer?� �g string-split� �g use-srfis� �f --listen� �g repl� �g server� ��� � �g spawn-server� �u�� � �� � �f --listen=� �f invalid port for --listen� �g make-tcp-server-socket� �u�� � �g make-unix-domain-server-socket� �u�� � �g pathS� �f unknown argument to --listen� �f -h� �f --help� �f -v� �f --version� �g version� �g packager-version� �f unrecognized switch ~a� �f 1the `-ds' switch requires the use of `-s' as well� �g set-program-arguments� �g debug� �g control� �� � �g %� ���� � �g begin� �g append� �� � �� � �g load-user-init� �� � �� � �g set!� �g %load-extensions� �g cons� �� � �g
%load-path� �� � �g %load-compiled-path� �� � �g reverse!� � � �� � �g top-repl� �� � ���� � �� � �g quit� �� � �g
string-rindex�C 5 h@. � ]4
5 4 > "