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

Advanced accessors.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:38:22 +02:00
parent 4bd6837e08
commit 12a911bbff
7 changed files with 25 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/web-static.scm
View file

@ -50,8 +50,8 @@
;; Generate all the files in specified (default current) directory.
(define (gen-web-static-member mr . dirs)
(let ((nick (member-nick mr))
(id (member-id mr))
(let ((nick (brmember-nick mr))
(id (brmember-id mr))
(dir (if (null? dirs)
(current-directory)
(car dirs))))