File tree Expand file tree Collapse file tree 2 files changed +5
-22
lines changed Expand file tree Collapse file tree 2 files changed +5
-22
lines changed Original file line number Diff line number Diff line change 11; ;; lang/scheme/autoload.el -*- lexical-binding : t ; -*-
22
3- ; ; HACK `geiser' has poor autoload etiquette. It calls
4- ; ; `geiser-activate-implementation' and `geiser-implementation-extension'
5- ; ; in their autoloads files. Sure, these functions are autoloaded, but this
6- ; ; needlessly (and unavoidably) pulls in the `geiser-impl' package (et co)
7- ; ; when geiser-X's autoloads are read (i.e. at startup).
8- ; ;
9- ; ; I rectify this by inlining calls to these two functions (and the
10- ; ; `geiser-impl--add-to-alist' sub-call in
11- ; ; `geiser-implementation-extension' ), and autoloading the two variables
12- ; ; they operate on. I do this from our autoloads file (which is
13- ; ; byte-compiled and read at startup before package autoloads).
14- ; ; TODO At some point, PR this behavior upstream (but not verbatim!)
15- ;;;### autoload (defvar geiser-active-implementations ())
16- ;;;### autoload (defvar geiser-implementations-alist ())
17- ;;;### autoload (eval-and-compile (dolist (sym '(geiser-impl--add-to-alist geiser-activate-implementation geiser-implementation-extension)) (put sym 'byte-optimizer 'byte-compile-inline-expand)))
18-
19-
203(defvar calculate-lisp-indent-last-sexp )
214; ; Adapted from https://github.com/alezost/emacs-config/blob/master/utils/al-scheme.el#L76-L123
225;;;### autoload
Original file line number Diff line number Diff line change 44(when (< emacs-major-version 29 )
55 (package! scheme
66 :recipe (:host gitlab :repo " flatwhatson/scheme-mode" )
7- :pin " aaef1f88cc34e8b6e07c207f9b8caff33f6e0740 " ))
7+ :pin " 51e586e5f1ddb5ea71d2cac8d401faf718c4627e " ))
88
9- (when (package! geiser :pin " e54d5e6dc659c252d10c4280f4c4d78d38623df5 " )
9+ (when (package! geiser :pin " 49d12a14482ce9a193c049a5ccdd2fed90b0bdbe " )
1010 (package! macrostep-geiser :pin " f6a2d5bb96ade4f23df557649af87ebd0cc45125" )
1111 (when (modulep! +chez)
12- (package! geiser-chez :pin " 246ec4c8bc4e7f64414e5cbe0fa66f0e5ef7d527 " ))
12+ (package! geiser-chez :pin " 605a81ff7b2d2b275a3ec68e3ce7e5b50f85014d " ))
1313 (when (modulep! +chibi)
1414 (package! geiser-chibi :pin " 5a6a5a580ea45cd4974df21629a8d50cbe3d6e99" ))
1515 (when (modulep! +chicken)
1919 (when (modulep! +gauche)
2020 (package! geiser-gauche :pin " 8ff743f6416f00751e24aef8b9791501a40f5421" ))
2121 (when (modulep! +guile)
22- (package! geiser-guile :pin " 24ce15de235c105daf5ecfb818200dae1c9815ee " )
22+ (package! geiser-guile :pin " ee33af6b4ef8fdaccbdf93c62b50fe17c07a1ade " )
2323 (when (and (modulep! :checkers syntax)
2424 (not (modulep! :checkers syntax +flymake)))
2525 (package! flycheck-guile
2626 :recipe (:host github :repo " flatwhatson/flycheck-guile" )
27- :pin " e23a4d7813179124fd98abf1c2f4190a72569bee " )))
27+ :pin " dd7bbdc48fd21cf8d270c913c56cd580f8ec3d03 " )))
2828 (when (modulep! +kawa)
2929 (package! geiser-kawa :pin " 5896b19642923f74f718eb68d447560b2d26d797" ))
3030 (when (modulep! +mit)
You can’t perform that action at this time.
0 commit comments