brmlab/hackerbase
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use new table for listings.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 15:08:02 +02:00
parent 3e4e8c4672
commit eaced78aee
3 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/listing.scm
View file

@ -41,7 +41,7 @@
ansi
racket-kwargs
util-dict-list
table-old)
table)
;; Returns the number of digits required to represent a given number
;; in decimal format.
@ -148,7 +148,7 @@
(was-printing #f)
(rtbl '()))
(if (null? lines)
(print (table->string (reverse rtbl) #:ansi #t))
(print (table->string (reverse rtbl)))
(let* ((highlight (match-highlight number highlights))
(hl-type (if highlight (cadddr highlight) #f))
(hl-def (assq hl-type highlight-rules))