Re: [ANN] guile-colorized released!

[Nala Ginrut]

Hmm...it's hard to find the problem.
Seems <record-type> wasn't exported in that version?
But you may comment out this line in colorized.scm:
---------------------cut----------------------
    (,<record-type> ,color-record-type dark-gray)
---------------------end----------------------
And give it a try.
I think it won't effect anything wrong for you, but <record-type> will
be rendered as an <unknown> object.

On Tue, 2012-12-04 at 21:58 -0600, Yanbin Zhang wrote:
> Hi Nala,
> 
> 
> It may be the old version of guile that caused the problem.
> Unfortunately, I usually do not live on the bleeding edge...
> Here is the trace (I have to admit that I am totally lost by looking
> at it):
> scheme@(guile-user)> ,tr (use-modules (ice-9 colorized))
> trace: |  (#<procedure 878a910> #(#<directory (guile-user) 82006c0> #f
> # …))
> trace: |  #(#<directory (guile-user) 82006c0> guile (guile) # ((guile)
> # #f) …)
> trace: (#<procedure 879ac80 ()>)
> trace: |  (#<procedure 821dd20 at ice-9/boot-9.scm:2493:4 (name
> #:option…> …)
> trace: |  |  (nested-ref-module #<module () 8200d38> (guile))
> trace: |  |  |  (module-ref-submodule #<module () 8200d38> guile)
> trace: |  |  |  |  (#<procedure 8219b20 at ice-9/boot-9.scm:170…> …)
> trace: |  |  |  |  #<hash-table 821dd70 121/223>
> trace: |  |  |  |  (hashq-ref #<hash-table 821dd70 121/223> guile)
> trace: |  |  |  |  #<module (guile) 8200e10>
> trace: |  |  |  #<module (guile) 8200e10>
> trace: |  |  #<module (guile) 8200e10>
> trace: |  |  (#<procedure 8235750 at ice-9/deprecated.scm:408:8 (mod)>
> #)
> trace: |  |  |  (#<procedure 8219a20 at ice-9/boot-9.scm:1709:2 (m…> …
> )
> trace: |  |  |  #<interface (guile) 8200dc8>
> trace: |  |  #<interface (guile) 8200dc8>
> trace: |  #<module (guile) 8200e10>
> trace: |  (process-use-modules (((ice-9 colorized))))
> trace: |  |  (map #<procedure 82201a0 at ice-9/boot-9.scm:3244:25 (mi…
> > …)
> trace: |  |  |  (#<procedure 82201a0 at ice-9/boot-9.scm:3244:25 (…> …
> )
> trace: |  |  |  |  (resolve-interface (ice-9 colorized))
> trace: |  |  |  |  |  (#<procedure 821dd20 at ice-9/boot-9.s…> …)
> trace: |  |  |  |  |  |  (nested-ref-module #<module () 8…> …)
> trace: |  |  |  |  |  |  |  (module-ref-submodule #<mo…> …)
> trace: |  |  |  |  |  |  |  |  (#<procedure 8219b20…> …)
> trace: |  |  |  |  |  |  |  |  #<hash-table 821dd70 121/223>
> trace: |  |  |  |  |  |  |  |  (hashq-ref #<hash-ta…> …)
> trace: |  |  |  |  |  |  |  |  #<directory (ice-9) 8200c18>
> trace: |  |  |  |  |  |  |  #<directory (ice-9) 8200c18>
> trace: |  |  |  |  |  |  |  (module-ref-submodule #<di…> …)
> trace: |  |  |  |  |  |  |  |  (#<procedure 8219b20…> …)
> trace: |  |  |  |  |  |  |  |  #<hash-table 82253a0 26/31>
> trace: |  |  |  |  |  |  |  |  (hashq-ref #<hash-ta…> …)
> trace: |  |  |  |  |  |  |  |  #<directory (ice-9 colorized) 852baf8>
> trace: |  |  |  |  |  |  |  #<directory (ice-9 colorized) 852baf8>
> trace: |  |  |  |  |  |  #<directory (ice-9 colorized) 852baf8>
> trace: |  |  |  |  |  |  (#<procedure 8235750 at ice-9/de…> …)
> trace: |  |  |  |  |  |  |  (#<procedure 8219a20 at ic…> …)
> trace: |  |  |  |  |  |  |  #<interface (ice-9 colorized) 852bab0>
> trace: |  |  |  |  |  |  #<interface (ice-9 colorized) 852bab0>
> trace: |  |  |  |  |  #<directory (ice-9 colorized) 852baf8>
> trace: |  |  |  |  |  (#<procedure 8235750 at ice-9/deprecat…> …)
> trace: |  |  |  |  |  |  (#<procedure 8219a20 at ice-9/bo…> …)
> trace: |  |  |  |  |  |  #<interface (ice-9 colorized) 852bab0>
> trace: |  |  |  |  |  #<interface (ice-9 colorized) 852bab0>
> trace: |  |  |  |  #<interface (ice-9 colorized) 852bab0>
> trace: |  |  |  #<interface (ice-9 colorized) 852bab0>
> trace: |  |  (reverse! (#<interface (ice-9 colorized) 852bab0>))
> trace: |  |  (#<interface (ice-9 colorized) 852bab0>)
> trace: |  (call-with-deferred-observers #<procedure 888f110 at
> ice-9/boot…>)
> trace: |  |  (#<procedure 8219820 at ice-9/boot-9.scm:1807:6 ()>)
> trace: |  |  |  (lock-mutex #<mutex 80f1870>)
> trace: |  |  |  #t
> trace: |  |  #<unspecified>
> trace: |  |  (#<procedure 849b130>)
> trace: |  |  (() ((filename . "ice-9/boot-9.scm") (0 1806 . 6) (3 # .
> 8) #) #)
> trace: |  |  (#<procedure 84c9850>)
> trace: |  |  (() ((filename . "ice-9/boot-9.scm") (0 1810 . 6) (5 # .
> 8) # …) …)
> trace: |  |  (#<procedure 888f110 at ice-9/boot-9.scm:3249:5 ()>)
> trace: |  |  |  (current-module)
> trace: |  |  |  #<directory (guile-user) 82006c0>
> trace: |  |  (module-use-interfaces! #<directory (guile-user) 82006c0>
> #)
> trace: |  |  |  (#<procedure 8219fa0 at ice-9/boot-9.scm:1709:2 (m…> …
> )
> trace: |  |  |  (#<interface (guile) 8200dc8> #<autoload (system base
> compi…> …)
> trace: |  |  |  (memq #<interface (ice-9 colorized) 852bab0> (#<…> …))
> trace: |  |  |  (#<interface (ice-9 colorized) 852bab0>)
> trace: |  |  |  (reverse ())
> trace: |  |  |  ()
> trace: |  |  |  (append (#<interface (guile) 8200dc8> #<autoloa…> …) …
> )
> trace: |  |  |  (#<interface (guile) 8200dc8> #<autoload (system base
> compi…> …)
> trace: |  |  |  (#<procedure 8219f60 at ice-9/boot-9.scm:1709:2 (m…> …
> )
> trace: |  |  |  (#<interface (guile) 8200dc8> #<autoload (system base
> compi…> …)
> trace: |  |  |  (#<procedure 8219ca0 at ice-9/boot-9.scm:1709:2 (m…> …
> )
> trace: |  |  |  #<hash-table 8259480 0/883>
> trace: |  |  |  (hash-clear! #<hash-table 8259480 0/883>)
> trace: |  |  |  #<unspecified>
> trace: |  |  (module-modified #<directory (guile-user) 82006c0>)
> trace: |  |  (hash-set! #<hash-table 82198d0 0/31> #<directory (guile…
> > …)
> trace: |  |  #t
> trace: |  |  (#<procedure 82197d0 at ice-9/boot-9.scm:1811:6 ()>)
> trace: |  |  |  (hash-for-each #<procedure 82197f0 at ice-9/boot-9…> …
> )
> trace: |  |  |  |  (#<procedure 82197f0 at ice-9/boot-9.scm:181…> …)
> trace: |  |  |  |  (module-call-observers #<directory (guile-use…>)
> trace: |  |  |  |  |  (#<procedure 8219c60 at ice-9/boot-9.s…> …)
> trace: |  |  |  |  |  ()
> trace: |  |  |  |  |  (for-each #<procedure 861dd70 at ice-9…> …)
> trace: |  |  |  |  |  #<unspecified>
> trace: |  |  |  |  |  (#<procedure 8219be0 at ice-9/boot-9.s…> …)
> trace: |  |  |  |  |  #<weak-key-hash-table 8259470 0/31>
> trace: |  |  |  |  (hash-for-each #<procedure 862a350 at ice-9/…> …)
> trace: |  |  |  |  #<unspecified>
> trace: |  |  |  #<unspecified>
> trace: |  |  |  (hash-clear! #<hash-table 82198d0 1/31>)
> trace: |  |  |  #<unspecified>
> trace: |  |  (unlock-mutex #<mutex 80f1870>)
> trace: |  |  #t
> trace: |  #t
> trace: #<unspecified>
> 
> 
> Thanks!
> 
> 
> Yanbin
> 
> On Tue, Dec 4, 2012 at 8:43 PM, Nala Ginrut <address@hidden>
> wrote:
>         On Tue, 2012-12-04 at 16:20 -0600, Yanbin Zhang wrote:
>         > Hi,
>         >
>         >
>         > In the example of the README file, the module is spelled as
>         > "colorised". I guess it should be "colorized".
>         >
>         
>         Ah~thanks!
>         >
>         > I tried the example but I got:
>         > scheme@(guile-user)> (use-modules (oop goops) (rnrs) (ice-9
>         > colorized))
>         > While compiling expression:
>         > ERROR: In procedure module-lookup: Unbound variable:
>         <record-type>
>         >
>         
>         Can you provide more information?
>         You may post a trace result like that:
>         ===============cut=================
>         ,tr (use-modules (ice-9 colorized))
>         ===============end=================
>         
>         And Guile-2.0.5 is old, maybe bugs there.
>         I use the latest Guile, and I suggest you update to
>         Guile-2.0.7.
>         
>         > I am using Guile 2.0.5
>         >
>         >
>         > This is definitely a cool feature if I can get it working.
>         But myself
>         > is quite new to Guile and does not know my way around very
>         well.
>         > Thanks.
>         >
>         >
>         > Yanbin
>         >
>         >
>         >
>         > On Tue, Dec 4, 2012 at 12:42 AM, nalaginrut
>         <address@hidden>
>         > wrote:
>         >         hi folks!
>         >         Here is the project to colorize Guile REPL:
>         >         https://github.com/NalaGinrut/guile-colorized
>         >         Play it according to README.
>         >         Attached a screen shot for the effect.
>         >         Enjoy it!
>         >
>         >         And it uses 'before-print-hook', Daniel posted a
>         patch to add
>         >         REPL
>         >         optional printer in another thread.
>         >         I'll update my project for this after that patch is
>         accepted,
>         >         and format
>         >         a patch.
>         >
>         >         PS: Though I've tested it, but maybe bugs remain.
>         >             Both bug-report/patches/suggestion are welcome,
>         thanks!
>         >
>         >         Happy hacking!
>         >
>         >
>         >
>         >
>         >
>         > --
>         > Yanbin Zhang
>         > ---------------------------------------------
>         > Research Assistant
>         > Department of Petroleum Engineering
>         > Texas A&M University
>         > 3116 TAMU - 702 RICH
>         > College Station, TX, 77843
>         >
>         >
>         >
>         
>         
>         
>         
> 
> 
> 
> 
> -- 
> Yanbin Zhang
> ---------------------------------------------
> Research Assistant
> Department of Petroleum Engineering
> Texas A&M University
> 3116 TAMU - 702 RICH
> College Station, TX, 77843
> 979-847-8797
> 
>