update packages
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
;;; ob-forth.el --- Babel Functions for Forth -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2014-2023 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2014-2025 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Eric Schulte
|
||||
;; Keywords: literate programming, reproducible research, forth
|
||||
@@ -45,7 +45,7 @@
|
||||
"Default header arguments for forth code blocks.")
|
||||
|
||||
(defun org-babel-execute:forth (body params)
|
||||
"Execute a block of Forth code with org-babel.
|
||||
"Execute Forth BODY according to PARAMS.
|
||||
This function is called by `org-babel-execute-src-block'."
|
||||
(if (string= "none" (cdr (assq :session params)))
|
||||
(error "Non-session evaluation not supported for Forth code blocks")
|
||||
@@ -55,7 +55,8 @@ This function is called by `org-babel-execute-src-block'."
|
||||
(car (last all-results))))))
|
||||
|
||||
(defun org-babel-forth-session-execute (body params)
|
||||
(require 'forth-mode)
|
||||
"Execute Forth BODY in session defined via PARAMS."
|
||||
(org-require-package 'forth-mode)
|
||||
(let ((proc (forth-proc))
|
||||
(rx " \\(\n:\\|compiled\n\\|ok\n\\)")
|
||||
(result-start))
|
||||
|
||||
Reference in New Issue
Block a user