Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -2125,12 +2125,12 @@ (let ((tab-content (dboard:add-external-tab commondat view-name views-cfgdat #f tab-num))) ;; was tabs (set! additional-tabnames (cons (cons tab-num view-name) additional-tabnames)) (set! tab-num (+ tab-num 1)) (set! result (append result (list tab-content))))))))) (sort (hash-table-keys views-cfgdat) (lambda (a b) - (let ((order-a (or (any-number (configf:lookup views-cfgdat a "order")) 999)) - (order-b (or (any-number (configf:lookup views-cfgdat b "order")) 999))) + (let ((order-a (or (any->number (configf:lookup views-cfgdat a "order")) 999)) + (order-b (or (any->number (configf:lookup views-cfgdat b "order")) 999))) (> order-a order-b))))) result)) (tabs (apply iup:tabs #:tabchangepos-cb (lambda (obj curr prev) (debug:catch-and-dump Index: megatest.scm ================================================================== --- megatest.scm +++ megatest.scm @@ -1908,12 +1908,13 @@ (import extras) ;; might not be needed ;; (import csi) (import readline) (import apropos) ;; (import (prefix sqlite3 sqlite3:)) ;; doesn't work ... - (include "readline-fix.scm") - (if *use-new-readline* + ;; (include "readline-fix.scm") + + (if #t ;; *use-new-readline* (begin (install-history-file (get-environment-variable "HOME") ".megatest_history") ;; [homedir] [filename] [nlines]) (current-input-port (make-readline-port "megatest> "))) (begin (gnu-history-install-file-manager