Re: Patch: Some work towards making --disable-deprecated compile

[Ludovic Courtès]

Hi Daniel,

Daniel Kraft <address@hidden> writes:

> here's my patch from last december to fix some internal
> inconsistencies that prevented guile from compiling with
> --disable-deprecated at that time.  I've now my copyright assignment
> in place, so when it is ok you could commit it at any time.  The patch
> is updated to the current revision.

Thanks!  I've committed it with minor formatting changes:

  
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=6ab8238d99f477ee7ac12f1f1a3ec70aab3e68c7

BTW, next time, could you fix your Git user name and email configuration
(which appears in the patch), and provide the change log as part of the
Git log (so that the patch can be applied quickly with git-am(1))?

> Now however there were some places where scm_sizet and SCM_LISTX
> occurred (I guess after the vm merge) that seem to be deprecated, so
> for a full build with --disable-deprecated I had to replace those by
> size_t and scm_cons[2] & friends (I hope this is ok so).  For this
> I've got a seperate patch (but we could merge those, depending on your
> opinion).

I stumbled upon this while trying to test the change with
`--disable-deprecated' and committed this:

  
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=da8b47478e08976ac4569a3030e43aa520e76b01

However, there's still another issue:

  $ ./pre-inst-guile -q --debug -c 0
  ;;; Succeeds.

  $ ./pre-inst-guile -q --debug -c '(use-modules (ice-9 r5rs))'

  Backtrace:
  In current input:
     1:  0* (use-modules (ice-9 r5rs))
     1:  1  (eval-when (eval load compile) (process-use-modules (list (list 
#))) ...)
     1:  2  (begin (process-use-modules (list (list #))) *unspecified*)
     ?:  3* [process-use-modules (((ice-9 r5rs)))]
     ?:  4  (let* ((interfaces #)) (call-with-deferred-observers (lambda () #)))
     ?:  5* [map #<procedure #f (mif-args)> (((ice-9 r5rs)))]
     ?:  6* [#<procedure #f (mif-args)> ((ice-9 r5rs))]
     ?:  7* (or (apply resolve-interface mif-args) (error "no such module" 
mif-args))
     ?:  8* [apply #<procedure resolve-interface (name . args)> ((ice-9 r5rs))]
     ?:  9  [resolve-interface (ice-9 r5rs)]
      ...
     ?: 10  (let* (# # # # ...) (and # #) (if # public-i #))
     ?: 11* (and (or (not #) (not #)) (error "no code for module" name))
     ?: 12  [error "no code for module" (ice-9 r5rs)]
      ...
     ?: 13  [scm-error misc-error #f "~A ~S" ("no code for module" (ice-9 
r5rs)) #f]

  <unnamed port>: In procedure scm-error in expression (scm-error (quote 
misc-error) #f ...):
  <unnamed port>: no code for module (ice-9 r5rs)

Looking with strace(1) shows that ice-9/r5rs.{scm,go} aren't loaded at
all here.

Ideas?

Thanks,
Ludo'.