guile: removed.

This commit is contained in:
Tilman Sauerbeck 2008-04-16 15:39:39 +02:00
parent e65fec78e0
commit 7cb15827cd
4 changed files with 0 additions and 465 deletions

View File

@ -1,306 +0,0 @@
drwxr-xr-x root/root usr/
drwxr-xr-x root/root usr/bin/
-rwxr-xr-x root/root usr/bin/guile
-rwxr-xr-x root/root usr/bin/guile-config
-rwxr-xr-x root/root usr/bin/guile-snarf
-rwxr-xr-x root/root usr/bin/guile-tools
drwxr-xr-x root/root usr/include/
drwxr-xr-x root/root usr/include/guile/
-rw-r--r-- root/root usr/include/guile/gh.h
-rw-r--r-- root/root usr/include/guile/readline.h
drwxr-xr-x root/root usr/include/guile/srfi/
-rw-r--r-- root/root usr/include/guile/srfi/srfi-1.h
-rw-r--r-- root/root usr/include/guile/srfi/srfi-13.h
-rw-r--r-- root/root usr/include/guile/srfi/srfi-14.h
-rw-r--r-- root/root usr/include/guile/srfi/srfi-4.h
-rw-r--r-- root/root usr/include/guile/srfi/srfi-60.h
-rw-r--r-- root/root usr/include/libguile.h
drwxr-xr-x root/root usr/include/libguile/
-rw-r--r-- root/root usr/include/libguile/__scm.h
-rw-r--r-- root/root usr/include/libguile/alist.h
-rw-r--r-- root/root usr/include/libguile/arbiters.h
-rw-r--r-- root/root usr/include/libguile/async.h
-rw-r--r-- root/root usr/include/libguile/backtrace.h
-rw-r--r-- root/root usr/include/libguile/boolean.h
-rw-r--r-- root/root usr/include/libguile/chars.h
-rw-r--r-- root/root usr/include/libguile/continuations.h
-rw-r--r-- root/root usr/include/libguile/convert.h
-rw-r--r-- root/root usr/include/libguile/debug-malloc.h
-rw-r--r-- root/root usr/include/libguile/debug.h
-rw-r--r-- root/root usr/include/libguile/deprecated.h
-rw-r--r-- root/root usr/include/libguile/deprecation.h
-rw-r--r-- root/root usr/include/libguile/discouraged.h
-rw-r--r-- root/root usr/include/libguile/dynl.h
-rw-r--r-- root/root usr/include/libguile/dynwind.h
-rw-r--r-- root/root usr/include/libguile/environments.h
-rw-r--r-- root/root usr/include/libguile/eq.h
-rw-r--r-- root/root usr/include/libguile/error.h
-rw-r--r-- root/root usr/include/libguile/eval.h
-rw-r--r-- root/root usr/include/libguile/evalext.h
-rw-r--r-- root/root usr/include/libguile/extensions.h
-rw-r--r-- root/root usr/include/libguile/feature.h
-rw-r--r-- root/root usr/include/libguile/filesys.h
-rw-r--r-- root/root usr/include/libguile/fluids.h
-rw-r--r-- root/root usr/include/libguile/fports.h
-rw-r--r-- root/root usr/include/libguile/futures.h
-rw-r--r-- root/root usr/include/libguile/gc.h
-rw-r--r-- root/root usr/include/libguile/gdb_interface.h
-rw-r--r-- root/root usr/include/libguile/gdbint.h
-rw-r--r-- root/root usr/include/libguile/goops.h
-rw-r--r-- root/root usr/include/libguile/gsubr.h
-rw-r--r-- root/root usr/include/libguile/guardians.h
-rw-r--r-- root/root usr/include/libguile/hash.h
-rw-r--r-- root/root usr/include/libguile/hashtab.h
-rw-r--r-- root/root usr/include/libguile/hooks.h
-rw-r--r-- root/root usr/include/libguile/i18n.h
-rw-r--r-- root/root usr/include/libguile/init.h
-rw-r--r-- root/root usr/include/libguile/inline.h
-rw-r--r-- root/root usr/include/libguile/ioext.h
-rw-r--r-- root/root usr/include/libguile/iselect.h
-rw-r--r-- root/root usr/include/libguile/keywords.h
-rw-r--r-- root/root usr/include/libguile/lang.h
-rw-r--r-- root/root usr/include/libguile/list.h
-rw-r--r-- root/root usr/include/libguile/load.h
-rw-r--r-- root/root usr/include/libguile/macros.h
-rw-r--r-- root/root usr/include/libguile/mallocs.h
-rw-r--r-- root/root usr/include/libguile/modules.h
-rw-r--r-- root/root usr/include/libguile/net_db.h
-rw-r--r-- root/root usr/include/libguile/null-threads.h
-rw-r--r-- root/root usr/include/libguile/numbers.h
-rw-r--r-- root/root usr/include/libguile/objects.h
-rw-r--r-- root/root usr/include/libguile/objprop.h
-rw-r--r-- root/root usr/include/libguile/options.h
-rw-r--r-- root/root usr/include/libguile/pairs.h
-rw-r--r-- root/root usr/include/libguile/ports.h
-rw-r--r-- root/root usr/include/libguile/posix.h
-rw-r--r-- root/root usr/include/libguile/print.h
-rw-r--r-- root/root usr/include/libguile/procprop.h
-rw-r--r-- root/root usr/include/libguile/procs.h
-rw-r--r-- root/root usr/include/libguile/properties.h
-rw-r--r-- root/root usr/include/libguile/pthread-threads.h
-rw-r--r-- root/root usr/include/libguile/ramap.h
-rw-r--r-- root/root usr/include/libguile/random.h
-rw-r--r-- root/root usr/include/libguile/rdelim.h
-rw-r--r-- root/root usr/include/libguile/read.h
-rw-r--r-- root/root usr/include/libguile/regex-posix.h
-rw-r--r-- root/root usr/include/libguile/root.h
-rw-r--r-- root/root usr/include/libguile/rw.h
-rw-r--r-- root/root usr/include/libguile/scmconfig.h
-rw-r--r-- root/root usr/include/libguile/scmsigs.h
-rw-r--r-- root/root usr/include/libguile/script.h
-rw-r--r-- root/root usr/include/libguile/simpos.h
-rw-r--r-- root/root usr/include/libguile/smob.h
-rw-r--r-- root/root usr/include/libguile/snarf.h
-rw-r--r-- root/root usr/include/libguile/socket.h
-rw-r--r-- root/root usr/include/libguile/sort.h
-rw-r--r-- root/root usr/include/libguile/srcprop.h
-rw-r--r-- root/root usr/include/libguile/srfi-13.h
-rw-r--r-- root/root usr/include/libguile/srfi-14.h
-rw-r--r-- root/root usr/include/libguile/srfi-4.h
-rw-r--r-- root/root usr/include/libguile/stackchk.h
-rw-r--r-- root/root usr/include/libguile/stacks.h
-rw-r--r-- root/root usr/include/libguile/stime.h
-rw-r--r-- root/root usr/include/libguile/strings.h
-rw-r--r-- root/root usr/include/libguile/strorder.h
-rw-r--r-- root/root usr/include/libguile/strports.h
-rw-r--r-- root/root usr/include/libguile/struct.h
-rw-r--r-- root/root usr/include/libguile/symbols.h
-rw-r--r-- root/root usr/include/libguile/tags.h
-rw-r--r-- root/root usr/include/libguile/threads.h
-rw-r--r-- root/root usr/include/libguile/throw.h
-rw-r--r-- root/root usr/include/libguile/unif.h
-rw-r--r-- root/root usr/include/libguile/validate.h
-rw-r--r-- root/root usr/include/libguile/values.h
-rw-r--r-- root/root usr/include/libguile/variable.h
-rw-r--r-- root/root usr/include/libguile/vectors.h
-rw-r--r-- root/root usr/include/libguile/version.h
-rw-r--r-- root/root usr/include/libguile/vports.h
-rw-r--r-- root/root usr/include/libguile/weaks.h
drwxr-xr-x root/root usr/lib/
-rw-r--r-- root/root usr/lib/libguile-srfi-srfi-1-v-3.a
-rwxr-xr-x root/root usr/lib/libguile-srfi-srfi-1-v-3.la
lrwxrwxrwx root/root usr/lib/libguile-srfi-srfi-1-v-3.so -> libguile-srfi-srfi-1-v-3.so.3.0.1
lrwxrwxrwx root/root usr/lib/libguile-srfi-srfi-1-v-3.so.3 -> libguile-srfi-srfi-1-v-3.so.3.0.1
-rwxr-xr-x root/root usr/lib/libguile-srfi-srfi-1-v-3.so.3.0.1
-rw-r--r-- root/root usr/lib/libguile-srfi-srfi-13-14-v-3.a
-rwxr-xr-x root/root usr/lib/libguile-srfi-srfi-13-14-v-3.la
lrwxrwxrwx root/root usr/lib/libguile-srfi-srfi-13-14-v-3.so -> libguile-srfi-srfi-13-14-v-3.so.3.0.1
lrwxrwxrwx root/root usr/lib/libguile-srfi-srfi-13-14-v-3.so.3 -> libguile-srfi-srfi-13-14-v-3.so.3.0.1
-rwxr-xr-x root/root usr/lib/libguile-srfi-srfi-13-14-v-3.so.3.0.1
-rw-r--r-- root/root usr/lib/libguile-srfi-srfi-4-v-3.a
-rwxr-xr-x root/root usr/lib/libguile-srfi-srfi-4-v-3.la
lrwxrwxrwx root/root usr/lib/libguile-srfi-srfi-4-v-3.so -> libguile-srfi-srfi-4-v-3.so.3.0.1
lrwxrwxrwx root/root usr/lib/libguile-srfi-srfi-4-v-3.so.3 -> libguile-srfi-srfi-4-v-3.so.3.0.1
-rwxr-xr-x root/root usr/lib/libguile-srfi-srfi-4-v-3.so.3.0.1
-rw-r--r-- root/root usr/lib/libguile-srfi-srfi-60-v-2.a
-rwxr-xr-x root/root usr/lib/libguile-srfi-srfi-60-v-2.la
lrwxrwxrwx root/root usr/lib/libguile-srfi-srfi-60-v-2.so -> libguile-srfi-srfi-60-v-2.so.2.0.1
lrwxrwxrwx root/root usr/lib/libguile-srfi-srfi-60-v-2.so.2 -> libguile-srfi-srfi-60-v-2.so.2.0.1
-rwxr-xr-x root/root usr/lib/libguile-srfi-srfi-60-v-2.so.2.0.1
-rw-r--r-- root/root usr/lib/libguile.a
-rwxr-xr-x root/root usr/lib/libguile.la
lrwxrwxrwx root/root usr/lib/libguile.so -> libguile.so.17.0.1
lrwxrwxrwx root/root usr/lib/libguile.so.17 -> libguile.so.17.0.1
-rwxr-xr-x root/root usr/lib/libguile.so.17.0.1
-rw-r--r-- root/root usr/lib/libguilereadline-v-17.a
-rwxr-xr-x root/root usr/lib/libguilereadline-v-17.la
lrwxrwxrwx root/root usr/lib/libguilereadline-v-17.so -> libguilereadline-v-17.so.17.0.1
lrwxrwxrwx root/root usr/lib/libguilereadline-v-17.so.17 -> libguilereadline-v-17.so.17.0.1
-rwxr-xr-x root/root usr/lib/libguilereadline-v-17.so.17.0.1
drwxr-xr-x root/root usr/share/
drwxr-xr-x root/root usr/share/aclocal/
-rw-r--r-- root/root usr/share/aclocal/guile.m4
drwxr-xr-x root/root usr/share/guile/
drwxr-xr-x root/root usr/share/guile/1.8/
-rw-r--r-- root/root usr/share/guile/1.8/guile-procedures.txt
drwxr-xr-x root/root usr/share/guile/1.8/ice-9/
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/and-let-star.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/boot-9.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/buffered-input.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/calling.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/channel.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/common-list.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/debug.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/debugger.scm
drwxr-xr-x root/root usr/share/guile/1.8/ice-9/debugger/
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/debugger/command-loop.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/debugger/commands.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/debugger/state.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/debugger/trc.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/debugger/utils.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/deprecated.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/documentation.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/emacs.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/expect.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/format.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/ftw.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/gap-buffer.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/getopt-long.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/hcons.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/history.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/lineio.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/list.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/ls.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/mapping.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/match.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/networking.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/null.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/occam-channel.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/optargs.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/poe.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/popen.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/posix.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/pretty-print.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/psyntax.pp
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/psyntax.ss
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/q.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/r4rs.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/r5rs.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/rdelim.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/readline.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/receive.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/regex.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/runq.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/rw.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/safe-r5rs.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/safe.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/serialize.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/session.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/slib.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/stack-catch.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/streams.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/string-fun.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/syncase.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/threads.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/time.scm
-rw-r--r-- root/root usr/share/guile/1.8/ice-9/weak-vector.scm
drwxr-xr-x root/root usr/share/guile/1.8/lang/
drwxr-xr-x root/root usr/share/guile/1.8/lang/elisp/
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/base.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/example.el
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/interface.scm
drwxr-xr-x root/root usr/share/guile/1.8/lang/elisp/internals/
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/evaluation.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/format.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/fset.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/lambda.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/load.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/null.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/set.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/signal.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/time.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/internals/trace.scm
drwxr-xr-x root/root usr/share/guile/1.8/lang/elisp/primitives/
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/buffers.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/char-table.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/features.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/fns.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/format.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/guile.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/keymaps.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/lists.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/load.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/match.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/numbers.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/pure.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/read.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/signal.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/strings.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/symprop.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/syntax.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/system.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/primitives/time.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/transform.scm
-rw-r--r-- root/root usr/share/guile/1.8/lang/elisp/variables.scm
drwxr-xr-x root/root usr/share/guile/1.8/oop/
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops.scm
drwxr-xr-x root/root usr/share/guile/1.8/oop/goops/
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/accessors.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/active-slot.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/compile.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/composite-slot.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/describe.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/dispatch.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/internal.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/old-define-method.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/save.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/simple.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/stklos.scm
-rw-r--r-- root/root usr/share/guile/1.8/oop/goops/util.scm
drwxr-xr-x root/root usr/share/guile/1.8/scripts/
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/PROGRAM
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/api-diff
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/autofrisk
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/display-commentary
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/doc-snarf
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/frisk
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/generate-autoload
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/lint
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/punify
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/read-rfc822
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/read-scheme-source
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/read-text-outline
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/scan-api
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/snarf-check-and-output-texi
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/snarf-guile-m4-docs
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/summarize-guile-TODO
-rwxr-xr-x root/root usr/share/guile/1.8/scripts/use2dot
drwxr-xr-x root/root usr/share/guile/1.8/srfi/
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-1.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-10.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-11.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-13.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-14.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-16.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-17.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-19.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-2.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-26.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-31.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-34.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-39.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-4.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-6.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-60.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-8.scm
-rw-r--r-- root/root usr/share/guile/1.8/srfi/srfi-9.scm

View File

@ -1,2 +0,0 @@
4b4a84960dd301576be6303ba46ff3e1 guile-1.8-rational.patch
be792074780d597208a8cdfed976f559 guile-1.8.1.tar.gz

View File

@ -1,22 +0,0 @@
# Description: embeddable library implementation of Scheme
# URL: http://www.gnu.org/software/guile/
# Maintainer: Matt Housh, jaeger at morpheus dot net
# Depends on: libgmp
name=guile
version=1.8.1
release=2
source=(http://ftp.gnu.org/gnu/$name/$name-$version.tar.gz \
$name-1.8-rational.patch)
build() {
cd $name-$version
patch -p0 -i $SRC/$name-1.8-rational.patch
./configure --prefix=/usr \
--with-threads \
--with-modules \
--enable-deprecation=no
make
make DESTDIR=$PKG install
rm -rf $PKG/usr/share/info
}

View File

@ -1,135 +0,0 @@
2006-12-23 Han-Wen Nienhuys <hanwen@lilypond.org>
* numbers.c (scm_i_fraction_reduce): move logic into
scm_i_make_ratio(), so fractions are only read.
scm_i_fraction_reduce() modifies a fraction when reading it. A
race condition might lead to fractions being corrupted by reading
them concurrently.
Also, the REDUCED bit alters the SCM_CELL_TYPE(), making
comparisons between reduced and unreduced fractions go wrong.
* numbers.h: remove SCM_FRACTION_SET_NUMERATOR,
SCM_FRACTION_SET_DENOMINATOR, SCM_FRACTION_REDUCED_BIT,
SCM_FRACTION_REDUCED_SET, SCM_FRACTION_REDUCED_CLEAR,
SCM_FRACTION_REDUCED.
Index: libguile/numbers.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/numbers.c,v
retrieving revision 1.285
diff -p -u -u -r1.285 numbers.c
--- libguile/numbers.c 9 Oct 2006 23:17:30 -0000 1.285
+++ libguile/numbers.c 23 Dec 2006 20:31:20 -0000
@@ -452,28 +452,21 @@ scm_i_make_ratio (SCM numerator, SCM den
/* No, it's a proper fraction.
*/
- return scm_double_cell (scm_tc16_fraction,
- SCM_UNPACK (numerator),
- SCM_UNPACK (denominator), 0);
+ {
+ SCM divisor = scm_gcd (numerator, denominator);
+ if (!(scm_is_eq (divisor, SCM_I_MAKINUM(1))))
+ {
+ numerator = scm_divide (numerator, divisor);
+ denominator = scm_divide (denominator, divisor);
+ }
+
+ return scm_double_cell (scm_tc16_fraction,
+ SCM_UNPACK (numerator),
+ SCM_UNPACK (denominator), 0);
+ }
}
#undef FUNC_NAME
-static void scm_i_fraction_reduce (SCM z)
-{
- if (!(SCM_FRACTION_REDUCED (z)))
- {
- SCM divisor;
- divisor = scm_gcd (SCM_FRACTION_NUMERATOR (z), SCM_FRACTION_DENOMINATOR (z));
- if (!(scm_is_eq (divisor, SCM_I_MAKINUM(1))))
- {
- /* is this safe? */
- SCM_FRACTION_SET_NUMERATOR (z, scm_divide (SCM_FRACTION_NUMERATOR (z), divisor));
- SCM_FRACTION_SET_DENOMINATOR (z, scm_divide (SCM_FRACTION_DENOMINATOR (z), divisor));
- }
- SCM_FRACTION_REDUCED_SET (z);
- }
-}
-
double
scm_i_fraction2double (SCM z)
{
@@ -2387,7 +2380,6 @@ SCM_DEFINE (scm_number_to_string, "numbe
}
else if (SCM_FRACTIONP (n))
{
- scm_i_fraction_reduce (n);
return scm_string_append (scm_list_3 (scm_number_to_string (SCM_FRACTION_NUMERATOR (n), radix),
scm_from_locale_string ("/"),
scm_number_to_string (SCM_FRACTION_DENOMINATOR (n), radix)));
@@ -2441,7 +2433,6 @@ int
scm_i_print_fraction (SCM sexp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
SCM str;
- scm_i_fraction_reduce (sexp);
str = scm_number_to_string (sexp, SCM_UNDEFINED);
scm_lfwrite (scm_i_string_chars (str), scm_i_string_length (str), port);
scm_remember_upto_here_1 (str);
@@ -3109,8 +3100,6 @@ scm_complex_equalp (SCM x, SCM y)
SCM
scm_i_fraction_equalp (SCM x, SCM y)
{
- scm_i_fraction_reduce (x);
- scm_i_fraction_reduce (y);
if (scm_is_false (scm_equal_p (SCM_FRACTION_NUMERATOR (x),
SCM_FRACTION_NUMERATOR (y)))
|| scm_is_false (scm_equal_p (SCM_FRACTION_DENOMINATOR (x),
@@ -5424,10 +5413,7 @@ scm_numerator (SCM z)
else if (SCM_BIGP (z))
return z;
else if (SCM_FRACTIONP (z))
- {
- scm_i_fraction_reduce (z);
- return SCM_FRACTION_NUMERATOR (z);
- }
+ return SCM_FRACTION_NUMERATOR (z);
else if (SCM_REALP (z))
return scm_exact_to_inexact (scm_numerator (scm_inexact_to_exact (z)));
else
@@ -5446,10 +5432,7 @@ scm_denominator (SCM z)
else if (SCM_BIGP (z))
return SCM_I_MAKINUM (1);
else if (SCM_FRACTIONP (z))
- {
- scm_i_fraction_reduce (z);
- return SCM_FRACTION_DENOMINATOR (z);
- }
+ return SCM_FRACTION_DENOMINATOR (z);
else if (SCM_REALP (z))
return scm_exact_to_inexact (scm_denominator (scm_inexact_to_exact (z)));
else
Index: libguile/numbers.h
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/numbers.h,v
retrieving revision 1.103
diff -p -u -u -r1.103 numbers.h
--- libguile/numbers.h 9 Oct 2006 23:17:57 -0000 1.103
+++ libguile/numbers.h 23 Dec 2006 20:31:21 -0000
@@ -157,14 +157,6 @@
#define SCM_FRACTIONP(x) (!SCM_IMP (x) && SCM_TYP16 (x) == scm_tc16_fraction)
#define SCM_FRACTION_NUMERATOR(x) (SCM_CELL_OBJECT_1 (x))
#define SCM_FRACTION_DENOMINATOR(x) (SCM_CELL_OBJECT_2 (x))
-#define SCM_FRACTION_SET_NUMERATOR(x, v) (SCM_SET_CELL_OBJECT_1 ((x), (v)))
-#define SCM_FRACTION_SET_DENOMINATOR(x, v) (SCM_SET_CELL_OBJECT_2 ((x), (v)))
-
- /* I think the left half word is free in the type, so I'll use bit 17 */
-#define SCM_FRACTION_REDUCED_BIT 0x10000
-#define SCM_FRACTION_REDUCED_SET(x) (SCM_SET_CELL_TYPE((x), (SCM_CELL_TYPE (x) | SCM_FRACTION_REDUCED_BIT)))
-#define SCM_FRACTION_REDUCED_CLEAR(x) (SCM_SET_CELL_TYPE((x), (SCM_CELL_TYPE (x) & ~SCM_FRACTION_REDUCED_BIT)))
-#define SCM_FRACTION_REDUCED(x) (0x10000 & SCM_CELL_TYPE (x))