dotfiles/.guile


1
2
3
4
5
6
7
8
9
10
11

;; -*- scheme -*-

(use-modules (ice-9 readline))
(activate-readline)

(define-syntax-rule (push! var x)
  (set! var (cons x var)))

(define (add-to-load-path* dir)
  (push! %load-path dir)
  (push! %load-compiled-path dir))