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

Much faster payments processing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 09:43:12 +02:00
parent b72f1900e6
commit 3c56578d65
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
table.scm
View file

@ -139,7 +139,6 @@
;; Normalizes cell line to required width and handles leading and
;; trailing tabs to allow for right and center alignment.
(define (table-normalize-cell-line line w)
(print "tncl " w " \"" line "\"")
(let* ((lst (string->list line))
(first-char (if (null? lst) #f (car lst)))
(last-char (if (or (null? lst)