Re: [Texmacs-dev] bug: 1.0.3.1 hangs up

[Joris van der Hoeven]

On Fri, 23 Jan 2004, Andreas Seidl wrote:
> The third release gives the same error as the second release. I've checked
> with rpm -q that indeed the third release is installed.
>
> address@hidden Nuevo]#
> TeXmacs] Loading ecrm11 at 300 dpi
> TeXmacs] With linked TrueType support
> /usr/share/TeXmacs/plugins/lisp/progs/init-lisp.scm:24:23: In procedure
> car in expression (car version-list):
> /usr/share/TeXmacs/plugins/lisp/progs/init-lisp.scm:24:23: Wrong type
> argument in position 1: ()
> TeXmacs] Loading english-spanish.scm
> TeXmacs] Loading hyphen.us
> TeXmacs] Loading ecrm10 at 600 dpi
> TeXmacs] Loading hyphen.spanish
> /usr/share/TeXmacs/progs/keyboard/kbd-config.scm:78:50: In procedure
> string-append in expression (string-append s "-"):
> /usr/share/TeXmacs/progs/keyboard/kbd-config.scm:78:50: Wrong type
> argument: #f
> TeXmacs] Loading ectt11 at 300 dpi

This is weird. Does the routine lisp-versions in init-lisp.scm
read as follows?

(define (lisp-versions)
  (let ((version-list
         (append (if (url-exists-in-path? "clisp") '("Clisp") '())
                 (if (url-exists-in-path? "lisp") '("Cmucl") '()))))
    (if (not (null? version-list))
      (let* ((default (car version-list))
             (rest (cdr version-list))
             (launch-default
              (list :launch (string-append "tm_lisp " default)))
             (launch-rest
              (map
               (lambda (version-name)
                 (list :launch version-name
                       (string-append "tm_lisp " version-name)))
               rest)))
        (cons launch-default launch-rest))
      '())))

Can you insert a line, so that you now have:

(define (lisp-versions)
  (let ((version-list
         (append (if (url-exists-in-path? "clisp") '("Clisp") '())
                 (if (url-exists-in-path? "lisp") '("Cmucl") '()))))
    (display* "version-list " version-list "\n")
    (if (not (null? version-list))
      (let* ((default (car version-list))
             (rest (cdr version-list))
             (launch-default
              (list :launch (string-append "tm_lisp " default)))
             (launch-rest
              (map
               (lambda (version-name)
                 (list :launch version-name
                       (string-append "tm_lisp " version-name)))
               rest)))
        (cons launch-default launch-rest))
      '())))

and tell me what you get on the stdout?