28 lines
1.1 KiB
Scheme
Executable File
28 lines
1.1 KiB
Scheme
Executable File
#!/usr/bin/env sh
|
|
exec guile -s "$0" "$@"
|
|
!#
|
|
;;;C DNM: Title
|
|
;;;C Copyright (C) 2022 Jacob Hrbek <kreyren@rixotstudio.cz>
|
|
;;;C
|
|
;;;C This file is Free/Libre Open-Source Software; you may copy, redistribute and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 2 of the License, or (at your option) any later version.
|
|
;;;C This file is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
;;;C
|
|
;;;C You should have received a copy of the GNU General Public license along with this project. If not, see <http://www.gnu.org/licenses>
|
|
|
|
#;(use-modules
|
|
(git)
|
|
(git checkout))
|
|
|
|
;;; GNU Guile script to keep the 'upstream' branch up to date with upstream repository
|
|
|
|
(load (string-append (dirname (current-filename)) "/common.scm"))
|
|
(load (string-append (dirname (current-filename)) "/hotfixes.scm"))
|
|
|
|
(git:checkout-index %repodir "upstream")
|
|
|
|
(git:pull %repodir)
|
|
|
|
(git:push %repodir "upstream")
|
|
|
|
;;;X pull-upstream.scm ends here
|