14 lines
480 B
Scheme
14 lines
480 B
Scheme
;;; Abbrev library for R7RS Scheme.
|
|
;;; Calculate the set of unique abbreviations for a given set of
|
|
;;; words. (Borrowed from Ruby's Abbrev.)
|
|
|
|
;;; SPDX-License-Identifier: LicenseRef-OWL-0.9.4
|
|
;;; SPDX-FileCopyrightText: (c) 2017 Peter Lane
|
|
;;; SPDX-FileCopyrightText: (c) 2025 afiw <afiw@linuxposting.xyz>
|
|
|
|
(define-library (abbrev)
|
|
(import (scheme base)
|
|
(only (srfi-1) remove)
|
|
(only (srfi-13) string-prefix?))
|
|
(export abbrev)
|
|
(include "abbrev.scm"))
|